#!/usr/bin/perl
#----------------------------------------------------------------------------------
# MODE D EMPLOI : perl Bao3-patrons.pl sortieudpipe-slurp_3208.txt patrons-PREP-DET-NOUN.txt > sortie-PREP-DET-NOUN_3208.txt 
#perl Bao3-patrons.pl sortieudpipe-slurp_3208.txt patrons-ADJ-NOUN.txt > sortie-ADJ-NOUN_3208.txt 
#perl Bao3-patrons.pl sortieudpipe-slurp_3208.txt patrons-NOUN-ADJ.txt > sortie-NOUN-ADJ_3208.txt 
#perl Bao3-patrons.pl sortieudpipe-slurp_3208.txt patrons-NOUN-PREP-ADJ.txt > sortie-NOUN-PREP-ADJ_3208.txt 
#perl Bao3-patrons.pl sortieudpipe-slurp_3208.txt patrons-NOUN-PREP-NOUN-PREP.txt > sortie-NOUN-PREP-NOUN-PREP_3208.txt 
#perl Bao3-patrons.pl sortieudpipe-slurp_3208.txt patrons-VERB-DET-NOUN.txt > sortie-VERB-DET-NOUN_3208.txt 
# En entrée : sortie UDPIPE formatée en XML + un patrons syntaxique
# En sortie la liste triée sortie 
#----------------------------------------------------------------------------------
open my $termino, "$ARGV[1]";
@patrons=<$termino>;
close $termino;
#my $suitedepos="VERB DET NOUN";

open my $entree, "$ARGV[0]";
@pos=();
@token=();
while (my $ligne=<$entree>) {

	next if $ligne=~m/^#|\d+-\d+/ ;
	$ligne=~s/\r?\n//g;
	if ($ligne ne "") {
	my @ligne = split /\t/, $ligne;
	push @pos, $ligne[3];
	push @token, $ligne[1];
	#my $rep=<STDIN>;
	}

	else {
	#print "je traite les listes\n";
	#print "@pos\n";
	#print "@token\n";
	foreach my $suitedepos (@patrons) {
		$long=0;
		$suitedepos=~s/\r?\n//g;
		while ($suitedepos=~/ /g) {$long++}
		$i=0;
		foreach my $element (@pos) {
			$i++;
			if ($suitedepos =~/^$element/) {
			#print "presence de $element, je cherche toute la séquence de $i et ensuite sur $long caractères\n";
			$suite="";		
			for ($j=$i-1;$j<=$long+$i-1;$j++) {$suite=$suite.$pos[$j]." "}
			#print "==>$suite<==\n";
			#print "==>$suitedepos<==\n";
			if ($suite=~/$suitedepos/) {
				
				#print "MATCH de $i à $j\n";
				#print "@token[$i-1..$j-1]\n";
				$extract = join(" ", @token[$i-1..$j-1]);
				$dict{lc($extract)}++;
				print "$extract\n";
					}
				}
			}
		}
	#my $rep=<STDIN>;
	@pos=();
	@token=();
	}
}