#/usr/bin/perl
<<DOC; 
Votre Nom : Anna Colli
MARS 2022
 usage : perl normalisationfichiers.pl   fichier_TT.xml 
 Le programme prend en entrée le fichier TT 
 Le programme construit en sortie deux fichiers avec les étiquettes changées selon le POS tagging de udpipe
DOC

use utf8;
binmode STDOUT,":utf8";
my $fichierTT=shift @ARGV;

open my $input, "<:encoding(UTF-8)", $fichierTT;
#on va lire globalement le fichier TT et le transformer dans une liste
my @LISTETT=<$input>;
close $input;
#ouverture du nouveau fichier où écrire le nouveau texte
open my $output_TT , ">:encoding(UTF-8)" , "newTT.xml";
#pour chaque ligne de la liste
foreach my $ligne (@LISTETT) {
#pour chaque élément dans chaque ligne
	foreach my $element ($ligne) {
		#opérations de substitution 
		$element=~s/NOM/NOUN/;
		$element=~s/PUN:[a-z]{3}/PUNCT/;
		$element=~s/VER:[a-z]{4}/VERB/;
		$element=~s/DET:[A-Z]{3}/DET/;
		$element=~s/PRP:[a-z]{3}/ADP/;
		$element=~s/PRP/ADP/;
		$element=~s/PRO:[A-Z]{3}/PRON/;
		$element=~s/KON/CCONJ/;
		$element=~s/NAM/PROPN/;
		#imprimer chaque élément, changé ou pas, danss le nouveau fichier
		print $output_TT "$element";
	}
}
close $output_TT;
