#!/usr/bin/perl

# à lancer avec comme arguments : [fichier xml annoté][patron souhaité]


use utf8;
binmode STDOUT,":utf8";
#--------------------------------------------------------------------
my $fileatraiter=shift @ARGV;
my @PATRON=@ARGV;
open my $input, "<:encoding(utf-8)",$fileatraiter;

my $nom = "resultats/BAO3_perl_$PATRON[0]_$PATRON[1]_$PATRON[2]_$PATRON[3]";

open my $fileResu,">:encoding(UTF-8)","$nom.txt";

my @LISTE=<$input>;
close($input);
while (my $ligne=shift @LISTE) {
	# si la ligne contenue dans $ligne correspond au premier du patron $PATRON[0]
	my $terme="";
	if ($ligne=~/<element><data type="type">$PATRON[0].*?<\/data><data type="lemma">[^<]+?<\/data><data type="string">([^<]+?)<\/data><\/element>/) {
		$terme=$terme.$1."/$PATRON[0] ";
		my $longueur=1;
		my $indice=1;
		# alors il faut que je lise autant de ligne qu'il y a dans le patron et tester chaque terme du patron...
		while (($LISTE[$indice-1]=~/<element><data type="type">($PATRON[$indice])<\/data><data type="lemma">[^<]+?<\/data><data type="string">([^<]+?)<\/data><\/element>/) and ($indice <= $#PATRON)) {
			$terme.=$2."/$PATRON[$indice] ";
			$indice++;
			$longueur++;
		}
		if ($longueur == $#PATRON + 1) {
			print $fileResu "$terme\n"
		}
	}	
}

close($fileResu);