#!/usr/bin/perl
<<DOC;
Format d\'entree : la Sortie de filtrage étiquetée par TreeTagger
Format de Sortie : Fichier xml bien formé avec les étiquettes balisées
DOC



##############################################################################################
# Récupération des arguments et ouverture des tampons

    $FichierEntree=$ARGV[0];
    open(Entree,$FichierEntree);
    $FichierSortie="RSSstructTT.xml";
    open(Sortie,">$FichierSortie");

# Traitement

    while ($Ligne = <Entree>) 
    {
       
    $Ligne =~ s/<unknown>/unknown/g; 
    
    $Ligne=~s/([^\t]*)\t([^\t]*)\t(.*)/<element>\n<data type=\"string\">$1<\/data>\n<data type=\"type\">$2<\/data>\n<data type=\"lemma\">$3<\/data>\n<\/element>/;
        print Sortie $Ligne;
    }

#cloture des fichiers
close(Entree);
close(Sortie);
