#/usr/bin/perl
<<DOC; 
Votre Nom : Anna Colli
FEVRIER 2022
 usage : perl BAO3complet.pl fichierTT fichierUP patron
DOC
############################################
use utf8;
use strict;
binmode(STDOUT, ":encoding(UTF-8)");
############################################
#ficher TeeTagger: premier argument
my $fichierTT=shift @ARGV;
#ficher Udpipe format XML: deuxième argument
my $fichierUP=shift @ARGV;
#patron: arguments restant
my @PATRON=@ARGV;
print(@PATRON);
#variable qui va contenier les éléments du patron
my $patrfinal="";
#traitement nécéssaire afin qu'il puisse être utilisé comme variable dans les prochaines fonctions
#pour chaque élément dans ma liste des patrons (@PATRON)
#jusqu'à la fin des éléments dans ma liste
#la variable $patr est remplie à chaque fois avec la valeur d'un élément de la liste
#en même temps, je vide la liste avec shift
while (my $patr=shift @PATRON){
	#ajout de $patr à la variable $patrfinal avec un espace à la fin
	$patrfinal=$patrfinal.$patr." ";
}
#print($patrfinal);
#appel à la fonction pour trouver les patrons dans le fichier TreeTagger
&patronTT;
print('ok TT******');
#appel à la fonction pour trouver les patrons dans le fichier Udpipe
&patronUP;
print('ok UP******');
#appel à la fonction pour trouver les patrons dans le fichier Udpipe format CONLL
#sortie
exit;
#############################################
#fonction pour trouver les patrons dans le fichier TreeTagger
sub patronTT{
	#appel au programme pour normaliser le fichier sorti de TreeTagger
	#nécéssaire parce que les POS de TreeTagger sont différents de ceux de Udpipe
	system("perl normalisationTT.pl $fichierTT");
	#check
	print('ok normalisation********');
	#appel du programme pour rechercher les patrons dans le fichier normalisé
	system("perl BAO3TT.pl newTT.xml $patrfinal");
}

sub patronUP{
	#appel du programme pour rechercher les patrons dans le fichier Udpipe
	system("perl BAO3UP.pl $fichierUP $patrfinal");
}



