#!/usr/bin/perl -w

#Conta etiquetas e lemas a partir dum ficheiro ja etiquetado, tokenizado e lematizado.
#No ficheiro de entrada, cada linha tem tręs elementos:
# "palavra lema etiqueta"


$token="";
while ($linha = <STDIN>) {
     chomp $linha;
 
     if ($linha ne "") {
       ($token, $lema, $etiqueta) = split (" ", $linha) ;
     
     
       ##contamos os tokens que tenhem a etiqueta adjectivo:
       if ($etiqueta =~ m/^A/ ) {
         $contarAdjs++;
       }
    
       ##contamos os lemas com a palavra "espaņol" como adjectivo e  como nome : 
       if ($lema eq "espaņol") {
          if ($etiqueta =~ m/^A/ ) {
            $contarEspAdj++;
          }
          elsif  ($etiqueta =~ m/^NC/ ) {
            $contarEspN++;
          }
       }
    }
     


}

if (defined $contarAdjs) {
print  "Ocorrencias de adjectivos: $contarAdjs\n";
}
if (defined $contarEspAdj) {
print  "Ocorrencias de espaņol como adjectivo: $contarEspAdj\n";
}
if (defined $contarEspN) {
print  "Ocorrencias de espaņol como nome: $contarEspN\n";
}