#!/usr/bin/perl -w
@sorties=[];
$sorties[0]="europe";
$sorties[1]="international";
for($m=0;$m<2;$m++)
{
	my $i=0;
	open(FICCORDIAL,$ARGV[$m]);
	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
		{
		
			print @pos[0..100];
			open(FICPATRON,$ARGV[2]);
			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++;}
					$sortie=$sorties[$m].".txt";
					open(FILEOUT,">>",$sortie);
					print FILEOUT "@token[$j..$i-$k-1]\n"; 
					$j=0;
					$k=0;
				}
			
            			
			}
		
		@token=();
		@lemme=();
		@pos=();
		$i=0;
		}
	
	}
   }
close(FICPATRON);
close(FICCORDIAL);