#/usr/bin/perl -w
#-----------------------------------------------------------
# prend en paramŹtre le nom d'un fichier XML et extrait le contenu des balises qui sont indiquŽes plus bas
my $file="$ARGV[0]";

#----------------------------------------
my $output1="InputCordial.txt";

open(FILEINPUT,"$file");
if (!open (FILEOUT,">>$output1")) { die "Pb a l'ouverture du fichier $output1"};
    while ($ligne = <FILEINPUT>)
    {   
    
            if ($ligne=~/<description>(.*)<\/description>/ || $ligne=~/<title>(.*)<\/title>/)  
            {
                    my $desc=$1;
                    $desc=~ s/&#38;#39;/'/g;
                    $desc=~ s/&#38;#34;/"/g;
                    $desc=~ s/&#234;/ę/g;
                    $desc=~ s/Ă©/é/g;
                    $desc=~ s/Ă§/ç/g;
                    $desc=~ s/Ă¨/č/g;
                    $desc=~ s/Ă/ŕ/g;
                    $desc=~ s/ŕ´/ô/g;
                    $desc=~ s/&#233;/é/g;
                print FILEOUT "$desc"."\n"; 
            }
}
close (FILEINPUT);

print 'Traitement terminé, le fichier '."$output1".' peut maintenant ętre étiqueté avec Cordial';
exit;