#!/usr/bin/perl
open (PAT, $ARGV[0]);
while ($ligne=<PAT>) {    
	chomp $ligne;
	my $i=0;
	while ($ligne=~ / /g) {
		$i++
		}
	$ligne =~ s/ //g;
	open (FIC, $ARGV[1]);
	while ($rangee = <FIC>) {
		$rangee =~ /(.+)\t(.+)\t(.+)/;
		my $tok=$1;
		my $pos=$3;
		if (($pos !~ /PCTFAIB/) && ($pos !~ /PCTFORTE/)) {
			push (@listepos, $pos);
			push (@listetoken, $tok);
			}
		else {
			$liste_en_scalaire = "";
			for ($j=0;$j<=$#listepos-$i;$j++) {
				@temporaire = @listepos[$j..$j+$i];
				foreach $temporaire (@temporaire) {
					$liste_en_scalaire=$liste_en_scalaire.$temporaire;
				}
				if ($liste_en_scalaire =~ /$ligne/) {
				$k=$j+$i;
				$extraction= join (" ",@listetoken[$j..$k]);
				print $extraction,"\n";
				}
				$liste_en_scalaire="";
			}
			@listepos=();
			@listetoken=();
		}		
	}
	close (FIC);
}
close (PAT);
