#!/usr/bin/perl
#Nous allons commencer tout d'abord par ouvrir le fichier et créer un fichier de sortie .xml en sortie

$entree=$ARGV[0];
open(ENTREE,$entree);
$sortie=$entree.".xml";
$sortie=~ s/\.txt//;
open(sortie,">$sortie");

#Ensuite nous allons traiter l'entête du fichier .xml

print sortie "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>\n";
print sortie "<?xml-stylesheet type=\"text/xsl\" href=\"fichier-xsl.xsl\"?>\n";
print sortie "<document>\n";
print sortie "<article>\n";

#Ensuite nous allons traiter les différentes colonnes du fichier d'entrée .txt

while ($ligne = <ENTREE>) {
	if ($ligne!~/\ô\¯\:\\ô\¯\:\\/) {
    	# Remplacement des guillemets par <![CDATA["]]>
        $ligne=~s/\"/<![CDATA[\"]]>/g;
        #remplacement des & par <![CDATA[&]]>
        $ligne=~s/\&/<![CDATA[\&]]>/g;
        #remplacement des <unkown> qui provoquera une erreur
        $ligne=~s/\<unknown\>/unknown/gi;
        $ligne=~s/([^\t]*)\t([^\t]*)\t(.*)/<element>\n <data type=\"type\">$2<\/data>\n <data type=\"lemma\">$3<\/data>\n <data type=\"string\">$1<\/data>\n<\/element>/;
        print sortie $ligne;
    }
}
    
# On procède ensuite à la fermeture de l'entête

print sortie "</article>\n";
print sortie "</document>\n";


# Et pour finir avec la fermeture des fichiers ouverts au tout début de l'opération

close(ENTREE);
close(sortie);