perl BaO3_JMD.pl SORTIE_RRS_CULTURE.cnr

my @LISTETOKEN=();
my @LISTEPOS=();

open(TEXT,$ARGV[0]);#Récupération du texte étiqueté.

	######################################################################
	#Récupération dans des tableaux des listes de tokens et d'étiquettes.#
	######################################################################
	
while(my $ligne=<TEXT>) #Va lire ligne à ligne
{
	$ligne=~s/\r//g;
	chomp $ligne;	
	if($ligne=~/^[^\t]+\t[^\t]+\t[^\t]+$/)#dans regex ^ = début de ligne et $ = fin de ligne
	{
		my ($token,$lemme,$pos)=split(/\t/,$ligne);#\t tabulation
		#print "POS : <$pos> lemme : <$lemme> mot : <$token> \n";#vérification

		#Remplissage des listes pour ranger les pos et tokens
		push (@LISTETOKEN,$token);
		push (@LISTEPOS,$pos); 
	}
}

if($ligne=~/^[^\t]+\t[^\t]+\t[^\t]+$/)#dans regex ^ = début de ligne et $ = fin de ligne

				##############################################
				#Création d'une liste exhaustive des patrons.#
				##############################################
				
open(OUT, ">./dossier/toto.txt") or die "n'a pas pu ouvrir toto.txt";#On crée/ouvre un fichier.txt dans le quel on va mettre les patrons uniques. 
foreach my $element(@LISTEPOS)#Pour tous les éléments ...
{
	$cmp= $cmp+1;
	print OUT "$element\n";	
}

system("sort -u -o ./dossier/toto2.txt ./dossier/toto.txt");#system(); permet d'écrire en ligne de commande.
print "Nombre de tokens : $cmp \n"; 
close(TEXT);
close(OUT);

&choix;#appel au sous-programme choix

Nombre de tokens : 93923 
[1] ADJFP		[2] ADJFS		[3] ADJHFS		[4] ADJHMS		
[5] ADJIND		[6] ADJINT		[7] ADJINV		[8] ADJMIN		
[9] ADJMP		[10] ADJMS		[11] ADJNUM		[12] ADJORD		
[13] ADJPIG		[14] ADJSIG		[15] ADV		[16] COO		
[17] DETDEM		[18] DETDFS		[19] DETDMS		[20] DETDPIG		
[21] DETIFS		[22] DETIMS		[23] DETPOSS		[24] INT		
[25] NCFIN		[26] NCFP		[27] NCFS		[28] NCHFS		
[29] NCHMS		[30] NCHSIG		[31] NCI		[32] NCMIN		
[33] NCMP		[34] NCMS		[35] NCPIG		[36] NCSIG		
[37] NHMIN		[38] NPFIN		[39] NPFP		[40] NPFS		
[41] NPHFS		[42] NPHMS		[43] NPHSIG		[44] NPI		
[45] NPMIN		[46] NPMP		[47] NPMS		[48] NPPIG		
[49] NPSIG		[50] PARTEUPH		[51] PCTFAIB		[52] PCTFORTE		
[53] PDP		[54] PDS		[55] PIFS		[56] PII		
[57] PIMP		[58] PIMS		[59] PIPIG		[60] PISIG		
[61] PP		[62] PPER1P		[63] PPER1S		[64] PPER2P		
[65] PPER2S		[66] PPER3P		[67] PPER3S		[68] PREP		
[69] PRFS		[70] PRI		[71] PRMS		[72] SUB		
[73] VCONP1S		[74] VCONP2P		[75] VCONP3P		[76] VCONP3S		
[77] VIMPP1P		[78] VIMPP2P		[79] VIMPP2S		[80] VINDF1P		
[81] VINDF1S		[82] VINDF2P		[83] VINDF3P		[84] VINDF3S		
[85] VINDI1P		[86] VINDI1S		[87] VINDI2P		[88] VINDI3P		
[89] VINDI3S		[90] VINDP1P		[91] VINDP1S		[92] VINDP2P		
[93] VINDP2S		[94] VINDP3P		[95] VINDP3S		[96] VINDPS3P		
[97] VINDPS3S		[98] VINF		[99] VPARPFP		[100] VPARPFS		
[101] VPARPMP		[102] VPARPMS		[103] VPARPRES		[104] VSUBP1P		
[105] VSUBP2P		[106] VSUBP2S		[107] VSUBP3P		[108] VSUBP3S		
Quel patron voulez-vous ? 
Veuillez taper le numéro correspondant.
Si vous voulez n'importe quel patron tapez une erreur.

my $cmp2=0;
open(TERM, "<./dossier/patron.txt"); #On reprend le patron que l'utilisateur a donné.
my $suitedepos=join(" ",@LISTEPOS);#Transforme la sortie précédente en string
while (my $terme=<TERM>) #TERM sera le fichier, récupérer en entrée, qui contiendra un patron (comme NCFS_ADJFS_)
{
	chomp ($terme); #On le nettoie
	chop ($terme);#On retire le dernier caractère _
	my $titre=$terme;
	#print "~~~~~~~~~~~~~~~$titre~~~~~~~~~~~~~~~\n";
	$terme =~ s/_/ /g; #On retire les underscores
	$terme =~ s/x/.*?/g;#On remplace les x par ce qui va nous servir à chercher "n'importe quoi"

	open(OUT,">./resultats/$titre.txt");#Création du fichier.
					
				###################################
				#On match le texte avec le patron.#
				###################################
	
	while($suitedepos=~/$terme/g)#On va matcher le patron avec la liste de tous les patrons du texte et récupérer, le cas échéant, les tokens correspondant. 
	{
		my $avant=$`;
		my $nombredeblanc = 0;#On se sert des blancs pour compter le nombre de tokens.
		while($avant=~/ /g)
		{
			$nombredeblanc++;
		}
		$cmp2 = $cmp2+1;
		my @listelementpatron=split(/ /,$terme);
		my $longueurpatron=$#listelementpatron+1;
		for (my $k=0;$k<$longueurpatron;$k++)
		{
			print OUT "$LISTETOKEN[$nombredeblanc+$k] ";
		}
		print OUT "\n";
	}#fin petit while
	close(OUT);
}#fin grand while
print "il y a $cmp2 occurrences \n";	
close(TERM);

EXIT;

perl BaO3_RB_CHOIX_METHODE.pl