#!/usr/bin/perl 
$arg = $ARGV[0]; 
$arg=~s/(.txt)//; 
open(FILE,"$arg")||die "\nImpossible d'ouvrir le fichier\n"; 
&ouvre; 
&tit; 
&traitement; 
&fin; 
&ferme; 
sub ouvre { 
$FichierSortie= $arg . ".xml"; 
open(Sortie,">$FichierSortie"); 
} 
# Titre du  document
sub tit { 
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>BONASSO</Nom>\n"; 
} 
sub traitement { 
while ($Ligne = <FILE>) 
{ 
# On remplace les guillemets  
$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; 
} 
} 
sub fin { 
print Sortie "</document>\n"; 
}  
sub ferme { 
close(Sortie); 
close(FILEINPUT); 
} 
