#/usr/bin/perl
<<DOC; 
Votre Nom : Estelle Salmon
 usage : perl normalisation_POSdeTT_avecPOSdeUD.pl sortie_perl_bao2_TT_3208.xml
 Le fichier xml de treetagger est en entrée du programme
 En sortie du programme, on retrouve ce même fichier XML mais les types (POS) ont été modifiés par ceux de UDpipe (normalisation pour la suite des BAO)
DOC

open(INPUT,"<:encoding(utf-8)",$ARGV[0]);
open(OUTPUT,">:encoding(utf-8)","newPOS_$ARGV[0]");


while (my $ligne=<INPUT>) {
		$ligne=~s/NOM/NOUN/;
		$ligne=~s/PUN:?([a-z]{3})?|SENT/PUNCT/;
		$ligne=~s/VER:?[a-z]{4}/VERB/;
		$ligne=~s/DET:?[A-Z]{3}/DET/;
		$ligne=~s/ABR/NOUN/;
		$ligne=~s/PRP:?([a-z]{3})?/ADP/;
		$ligne=~s/PRO:?[A-Z]{3}/PRON/;
		$ligne=~s/KON/CCONJ/;
		$ligne=~s/NAM/PROPN/;
		print OUTPUT $ligne;
	}
	
close(INPUT);
close(OUTPUT);

