accents.pl

#!/usr/bin/perl
use locale; #caracteres accentues
#On lance comme cela: perl accents.pl
#On obtient: a.fichier.ext
print "Bienvenu(e) au programme qui ne permet que de \n convertir les accents de n'importe quel type de \n fichier en entites HTML sans toucher aux metacaracteres \n (chevrons ouvrant, fermant ou guillemets) \n";
print "Nom du fichier de travail, de preference au format UNIX: \n";
my $file=<STDIN>;
chomp($file);
open(FILEIN, $file);
open(FILEOUT, ">a.$file");
my $DUMPFULL="";
while(my $recup=<FILEIN>) {
#1. transcodage
####Les Accents####
$recup=~s/à/&agrave;/g;
$recup=~s/á/&aacute;/g;
$recup=~s/â/&acirc;/g;
$recup=~s/ã/&atilde;/g;
$recup=~s/ä/&auml;/g;
$recup=~s/å/&aring;/g;
$recup=~s/æ/&aelig;/g;
$recup=~s/è/&egrave;/g;
$recup=~s/é/&eacute;/g;
$recup=~s/ê/&ecirc;/g;
$recup=~s/ë/&euml;/g;
$recup=~s/è/&egrave;/g;
$recup=~s/é/&eacute;/g;
$recup=~s/ê/&ecirc;/g;
$recup=~s/ë/&euml;/g;
$recup=~s/ì/&igrave;/g;
$recup=~s/í/&iacute;/g;
$recup=~s/î/&icirc;/g;
$recup=~s/ï/&iuml;/g;
$recup=~s/ò/&ograve;/g;
$recup=~s/ó/&oacute;/g;
$recup=~s/ô/&ocirc;/g;
$recup=~s/õ/&otilde;/g;
$recup=~s/ö/&ouml;/g;
$recup=~s/ù/&ugrave;/g;
$recup=~s/ú/&uacute;/g;
$recup=~s/û/&ucirc;/g;
$recup=~s/ü/&uuml;/g;
$recup=~s/ç/&ccedil;/g;
$recup=~s/¯/&macr;/g;
$recup=~s/\/<img src="\.\/IMAGES\/ETX.jpg">/g;
$recup=~s/\/<img src="\.\/IMAGES\/DC1.jpg">/g;
#2. Memorisation dans DUMPFULL
$DUMPFULL.=$recup;
}
#3. Remplacement des entites
print FILEOUT $DUMPFULL;
print "\nLe fichier bien accentue se nomme a.$file";
#----------------------------------------------
close(FILEIN);
close(FILEOUT);