#/usr/bin/perl
open(FICCORDIAL, "$ARGV[0]");
open (OUT, ">sortiecordnomadj_jmd.txt");
while ($ligne= <FICCORDIAL>) { 
next if ($ligne!~/\t/);
chomp $ligne; 
if ($ligne !~/PCT/){ 
	@decoup=split(/\t/, $ligne); 
	push (@token, $decoup[0]); 
	push (@lemme, $decoup[1]); 
	push (@partof, $decoup[2]);
	$i++;
	}
else {
	open(FICPATRONS, "$ARGV[1]");
	while ($patrons=<FICPATRONS>) { 
		chomp $patrons;
		my $compare="";
#foreach my $element(@partof) { 
			   #$compare=$compare."\t".$element; 
		           #  }
		$compare=join("\t", @partof); 
		my $j=0; 
		my $k=0;
	
		while ($compare=~/$patrons/g) { 
			my $avant = $`;
			my $apres = $';
			while ($avant=~/\t/g) {$j++};
			while ($apres=~/\t/g) {$k++};
			print OUT "@token[$j..$i-$k-1]\n";  #avec foreach on met comme ça : [$j-1..$i-$k-1]; 
			$j=0;
	        $k=0;
		}
	    }
		close (FICPATRONS);
	$i=0;#new #sert à vider cette var.	
	@token=();
	@lemme=();
	@partof=();
	    }
        }
	



