#!/usr/bin/perl

#EXTRAI OS HEAD DADO UM DEPENDIENTE E UMA RELAÇAO (OPTATIVO) 
#lê o resultado do parsing: dependencias. 

#cat parsed |./HeadOf.perl "livros" "Dobj"

$DEP = shift(@ARGV);
$REL = shift(@ARGV);


$rel="";
$head="";
$dep="";

while ($line = <STDIN>) {

   if ($line !~ /^SENT::/) {
    
     chop($line);

     #tiramos as parenteses da dependencia
     $line =~ s/^\(//;
     $line =~ s/\)$//;
    # print STDERR "$line\n";

    ($rel, $head, $dep) = split('\;', $line);

    ($head,$tmp) = split ("_", $head);
    ($dep,$tmp) = split ("_", $dep);

    # print STDERR "#$rel# #$head# #$dep#-- \n";
    
    if ($DEP eq $dep && !defined $REL) {
	print "$head\n";
    }
    elsif ($DEP eq $dep && $rel =~ /$REL/) {
	print "$head\n";
    }
 }
}