#!/usr/bin/perl

$arg = $ARGV[0];
open(FILE,"$arg")||die "\nImpossible d'ouvrir le fichier\n";
&ouvre;
&entete;
&traitement;
&fin;
&ferme;

sub ouvre {
$FichierSortie= $arg . ".xml";
open(Sortie,">$FichierSortie");
}
# Entete de document XML
sub entete {
print Sortie "<?xml version=\"1.0\" encoding=\"iso-8859-1\" standalone=\"no\"?>\n";
print Sortie "<document>\n<Nom>HIARD</Nom>\n<Prénom>Yann</Prénom>\n";
}

sub traitement {
print "a" ;
while ($Ligne = <FILE>)
{print $Ligne;
# Remplacement des guillemets par <![CDATA["]]> (evite erreur d'interpretation XML)
$Ligne=~s/\"/<![CDATA[\"]]>/g;
$Ligne=~s/([<>])/<![CDATA[chevron]]>/g;
$Ligne=~s/([\&])/<![CDATA[\&]]>/g;
$Ligne=~s/([^\t]*)\t([^\t]*)\t([^\n]*)\n/<element>\n <data type=\"string\">$1<\/data>\n <data type=\"lemma\">$2<\/data>\n <data type=\"type\">$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);
}
