#/usr/bin/perl

# Ouverture du fichier étiqueté par TreeTagger : 
open(FILE,"$ARGV[0]");
my @lignes=<FILE>;
close(FILE);
while (@lignes) {
    my $ligne=shift(@lignes);
    chomp $ligne;
    my $sequence="";
    my $longueur=0;
    # Si l'argument 1 entré en ligne de commande se trouve dans la première ligne matchant avec la regex :
    if ( $ligne =~ /<element><data type=\"type\">$ARGV[1]<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
		$sequence.=$1;
		$longueur++;
		my $indice=1;
		my $stop=1;
		# On cherche les autres patrons donnés en arguments (s'il y en a) : 
		while (($indice < $#ARGV) and ($stop == 1)) {
			my $nextligne=$lignes[$indice-1];
			if ( $nextligne =~ /<element><data type=\"type\">$ARGV[$indice+1]<\/data><data type=\"lemma\">[^<]+<\/data><data type=\"string\">([^<]+)<\/data><\/element>/) {
				# On remplit la variable séquence :
				$sequence.=" ".$1;
				$longueur++;
				}
			else {
				$stop=0;
				}
				$indice++;
	 		}
	 if ($longueur == $#ARGV) {
	 	# Affichage : 
	     print $sequence,"\n";
	 }
     }
}