#!/usr/bin/perl

$arg = $ARGV[0];
$arg=~s/(.txt)//;
open(FILE,"$ARGV[0]")||die "\nImpossible d'ouvrir le fichier\n";
&ouvre;
&entete;
&traitement;
&fin;
&ferme;


sub ouvre {
    $FichierSortie= $arg . ".xml";
    open(Sortie,">$FichierSortie");
}
# Entête de document XML
sub entete {
    print Sortie "<?xml version=\"1.0\" encoding=\"iso-8859-1\" standalone=\"no\"?>\n<?xml-stylesheet type=\"text/xsl\" href=\"StyleC.xsl\"?>\n";
    print Sortie "<document>\n<Nom>Aurélia Trinquier</Nom>\n";
}

sub traitement {
    
while ($Ligne = <FILE>)
{
	# Remplacement des guillemets par <![CDATA["]]> (évite erreur d'interprétation XML)
	    $Ligne=~s/\"/<![CDATA[\"]]>/g;
	    $Ligne=~s/([^\t]*)\t([^\t]*)\t([^\n]*)\n/<element>\n <data type=\"mot\">$1<\/data>\n <data type=\"lemme\">$2<\/data>\n <data type=\"cat\">$3<\/data>\n<\/element>/;
	    print Sortie $Ligne;

	}
  }     
    


# Fin de fichier
sub fin {
    print Sortie "</document>\n";
}
# Fermeture des tampons
sub ferme {
    close(Sortie);
    close(FILEINPUT);
}
