#!usr/bin/perl
open(FICCORDIAL, "$ARGV[0]");
my $i=0;
while(<FICCORDIAL>) {
	$ligne=$_;
	chomp $ligne;
	#print "voici la ligne $ligne\n";
	next if($ligne !~/\t/);	
			my $ligne=$_;
			chomp ($ligne);
			if ($ligne !~ /PCT/)
			{
			my @decoupeligne=split(/\t/,$ligne);
			push(@token,$decoupeligne[0]);
			#print "voici le token : $decoupeligne[0]\n";
			#print "voici la liste : @token\n";
			push(@lemme,$decoupeligne[1]);
			push(@patron,$decoupeligne[2]);
			$i++;
						}
	else	{
			#print "voici la liste complete : @patron\n";
			#print "appuie sur entrée pour continuer\n";
			#my $reponse=<STDIN>;
			
			open(FICPATRON, $ARGV[1]);
			while(<FICPATRON>) {
				my $patron1= $_;
				
				chomp($patron1);
				my $compare="";
				$compare=join("\t",@patron);
				#print "chaine lue : @patron \n";
				#print "patron lu : $compare \n";
				#print "patron à chercher: $patron1 \n";
				my $j=0;
				my $k=0;
				while($compare=~/$patron1/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;
				#print "Correspondance OK \n";
				$i++;
				}
			}
			close (FICPATRON);		
					
	@token=();
	@lemme=();
	@patron=();
	$i=0;
}
}
close (FICCORDIAL);
	
