#!/usr/bin/perl -w
open(FICCORDIAL,$ARGV[0]);
#open(FICCORDIAL,$ARGV[0]);
#$out1="sortie1.txt";
#$out1="sortie2.txt";
#open(FILEOUT1,$ARGV[0]);
#open(FILEOUT2,$ARGV[0]);
my $i=0;
while($ligne=<FICCORDIAL>)
{
	chomp($ligne);
	next if($ligne!~/\t/);
	if($ligne !~/PCT/)
	{
		@decoupe_ligne = split(/\t/,$ligne);
		push(@token,$decoupe_ligne[0]);
		push(@lemme,$decoupe_ligne[1]);
		push(@pos,$decoupe_ligne[2]);
		$i++;
	}
	else
	{
		open(FICPATRON,$ARGV[1]);
		while(my $ligne1=<FICPATRON>)
		{
			chomp($ligne1);
			my $compare="";
			$compare = join("\t",@pos);
			$j=0;
			$k=0;
			while($compare=~/$ligne1/g)
			{
			    my $avant=$`;
			    my $apres=$';
			    while($avant=~/\t/g){$j++;}
			    while($apres=~/\t/g){$k++;}
			    print "@token[$j..$i-$k-1]\n";
			    $j=0;
			    $k=0;
			}
		}
		
		@token=();
		@lemme=();
		@pos=();
		$i=0;
	}
	
}
close(FICPATRON);
close(FICCORDIAL);
