open(FILE,"$ARGV[0]");
#--------------------------------------------
# le patron cherché ici est du type NOM ADJ";
# le modifier pour extraire NOM PREP NOM
#--------------------------------------------
my @lignes=<FILE>; #on met tout le fichier dans une liste
close(FILE);
while (@lignes) { #tant qu'il y a quelque chose à lire
    my $ligne=shift(@lignes); # on prend le premier élément de la ligne
    chomp $ligne; # on enlève le retour chariot
    my $sequence=""; # on initialise séquence à vide
    my $longueur=0; # au début la longueur est 0
    if ( $ligne =~ /^([^\t]+)\t[^\t]+\tNC.*/) { 
	# est ce que cette ligne correspond à ..... NC
	 my $forme=$1; 
	# si c'est un NC on récupère son token qui est en première colonne d'où $1
	 $sequence.=$forme; #on concatène dans la séquence finale
	 $longueur=1; # on dit que le nombre de mot dans la séquence est 1
	 my $nextligne=$lignes[0]; 
	 # comme on a vidé un élément, la ligne suivante est à l'indice 0
	 if ( $nextligne =~ /^([^\t]+)\t[^\t]+\tADJ.*/) { 
	 # est cette ligne désigne un ADJ
	     my $forme=$1; # on récupère le token
	     $sequence.=" ".$forme; 
		 # on concatène dans la séquence finale qui contient un nom
	     $longueur=2; #maintenant la longueur vaut 2
	 }
    }
    if ($longueur == 2) { 
	# si la séquence vaut 2 : c'est à dire qu'on a NOM + ADJ
	print $sequence,"\n"; # on écrit le nom + le det
    }
}

