#!/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"

$HEAD = 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 ($HEAD eq $head && !defined $REL) {
	print "$head\n";
    }
    elsif ($HEAD eq $head && $rel =~ /$REL/) {
	print "$dep\n";
    }
 }
}