#!/usr/bin/perl
open(FIC,"sortietalismane-slurp_3208.txt");
@terme=(NC,P,NC);
my @liste;
my $i=0;
while (my $ligne=<FIC>) {
	#print $ligne;
	if ($ligne !~ /^$/) {
		my @rang=split(/\t/,$ligne);
		push(@liste, \@rang);
		$indice++
	}
	else {
		#print "liste a longueeur de $#liste\n";
		while ($i <= $#liste) {
			#$i++;
			#print "####i vaut " . $i . "\n";
			#print "$i ==>$liste[$i]->[3]\n";
			if ($liste[$i]->[3]=~/$terme[0]/) {
				#print "MATCH au rang $i!\n";
				$j=0;
				$chaine="";
				while ($j<=$#terme) {
					$chaine=$chaine.$liste[$i+$j]->[3];
					#print "i vaut et longueur vayut " . $i. " " . $#liste . "\n";
					$j++;
				}
				#print "je vais comparer $chaine à " . join(//,@terme)."\n";
				if ($chaine eq eval(join(//,@terme))) {
					#print "MATCH entre $i et " . eval($i+$j-1). "extraction du candidat-terme correspondant\n";
					$k=$i;
					while ($k <= $i+$j-1) {
						print "$liste[$k]->[1] ";$k++;
					}
					print "\n";
				}
			}
			#else {print "je continue, i vaut $i\n";}
			$i++;
			#print $rep=<STDIN>;
		}
	@liste=();$i=0
	}
	#print "ici je prends nouvelle ligne\n";		
}




