# FICHIER ADAPTE POUR TREE-TAGGER !


# =====On met tout le fichier cordial dans une liste (@ligne)=====
open(FILE,"$ARGV[0]");
my @lignes=<FILE>;
close(FILE);
#=================================================================

# Parcours
# On enlève la première ligne
while (@lignes) {
    my $ligne=shift(@lignes);
    chomp $ligne;
    my $sequence="";
    my $longueur=0;
    if ( $ligne =~ /^([^\t]+)\t$ARGV[1]\t[^\t]+/) {	# Si la ligne contient-elle l'ARGV[1] 
	 $sequence.=$1;
	 $longueur++;
	 my $indice=1;
	 my $stop=1;	# Si la ligne que je rencontre ne contient pas de match du patron dans la ligne, on ne continue pas, on sort
	 while (($indice < $#ARGV) and ($stop == 1)) {
	     my $nextligne=$lignes[$indice-1];
	     if ( $nextligne =~ /^([^\t]+)\t$ARGV[$indice+1]\t[^\t]+/) {		# Cette ligne là contient-elle "tabulation $ARGV[$indice+1] tabulation "" (=> ici, deuxième argument) ?
		 $sequence.=" ".$1;
		 $longueur++;	# Permet de compter le nbr d'élément que j'examine

	     }
	     else {
		 $stop=0;
	     }
	     $indice++;
	 }
	 if ($longueur == $#ARGV) {
	     print $sequence,"\n";
	 }
     }
}

# perl extract-terminologie-cordial-v2.pl 3208.txt "NOM+" "ADJ"

 