La langue n'est pas un long fleuve tranquille 1: Comparaison morpholexicale du vocable potentiel dans le domaine de la biologie cellulaire entre le Français et le Portugais

perl2html-pm.pl
#!/usr/bin/perl
use locale; #caracteres accentues
#On lance comme cela: perl perl2html.pl
#On obtient: fichier.pl.html
print "Bienvenu(e) au programme qui permet \n d'afficher les programmes perl en HTML.\n";
print "Nom du fichier de travail, de preference un .pl \n au format UNIX: \n";
my $file=<STDIN>;
chomp($file);
open(FILEIN, $file);
open(FILEOUT, ">$file.html");
my $DUMPFULL="";
while(my $recup=<FILEIN>) {
#1. transcodage
##Les non métacaractères##
$recup=~s/&/&/g;
####Les métacaractères####
$recup=~s/\>/>/g;
$recup=~s/\</</g;
$recup=~s/\"/"/g;
####Les Accents####
$recup=~s/à/à/g;
$recup=~s/á/á/g;
$recup=~s/â/â/g;
$recup=~s/ã/ã/g;
$recup=~s/ä/ä/g;
$recup=~s/å/å/g;
$recup=~s/æ/æ/g;
$recup=~s/è/è/g;
$recup=~s/é/é/g;
$recup=~s/ê/ê/g;
$recup=~s/ë/ë/g;
$recup=~s/è/è/g;
$recup=~s/é/é/g;
$recup=~s/ê/ê/g;
$recup=~s/ë/ë/g;
$recup=~s/ì/ì/g;
$recup=~s/í/í/g;
$recup=~s/î/î/g;
$recup=~s/ï/ï/g;
$recup=~s/ò/ò/g;
$recup=~s/ó/ó/g;
$recup=~s/ô/ô/g;
$recup=~s/õ/õ/g;
$recup=~s/ö/ö/g;
$recup=~s/ù/ù/g;
$recup=~s/ú/ú/g;
$recup=~s/û/û/g;
$recup=~s/ü/ü/g;
$recup=~s/ç/ç/g;
$recup=~s/¯/¯/g;
$recup=~s/\/<img src="\.\/IMAGES\/ETX.jpg">/g;
$recup=~s/\/<img src="\.\/IMAGES\/DC1.jpg">/g;
####Les fichiers de type programme en Perl####
##Les paragraphes et les line breaks##
$recup=~s/(\s)*\n/\n/g; #supprime les espaces avant le retour à la ligne
$recup=~s/^\n/\n/g; #met des paragraphes dans tous les sauts de ligne
if ($recup=~/[^]\n/g) {
$recup=~s/\n/<\/br>\n/g;
};# met des br en fin de ligne lorsque la balise n'est pas là
##Les commentaires##
$recup=~s/\#\!\/usr\/bin\/perl/\#\!\/usr\/bin\/perl<\/font>/g; # met du vert dans la déclaration de type de fichier
$recup=~s/\#\!\/bin\/bash/\#\!\/bin\/bash<\/font>/g;
$recup=~s/#caracteres accentues/\#caracteres accentues<\/font>/g; # met du vert dans la phrase caracteres accentues
if ($recup=~/^\#/g) {
$recup=~s/$recup/$recup<\/font>/g;
$recup=~s/<\/br>\n<\/font>/<\/font><\/br>\n/g; #Résidus
}; # met du vert à chaque commentaire en début de ligne
unless(($recup=~/^/)||($recup=~//)) {
if ($recup=~/[^\\]\#/g){
$recup=~s/\#/\#<\/font>/g;
}; # on ne peut pas faire mieux car les espaces et les barres obliques sont considérés comme des espaces<\/font>/g
};

$recup=~s/\#<\/font>\#<\/font>/\#\#<\/font>/g;
$recup=~s/\#<\/font>\#/\#\#/g;

##Les variables par ordre alphabétique##

$recup=~s/\$treetagger/\$treetagger<\/font>/g;
$recup=~s/\$tete/\$tete<\/font>/g;
$recup=~s/\$sequence/\$sequence<\/font>/g;
$recup=~s/\$rubrique/\$rubrique<\/font>/g;
$recup=~s/\$reponse/\$reponse<\/font>/g;
unless ($recup=~/\$rep<\/font>/) {
$recup=~s/\$rep/\$rep<\/font>/g;
};

$recup=~s/\$recupxsl/\$recupxsl<\/font>/g;
unless($recup=~/\$recup<\/font>/){
$recup=~s/\$recup/\$recup<\/font>/g;
};
$recup=~s/\$racine/\$racine<\/font>/g;
$recup=~s/\$queue/\$queue<\/font>/g;
$recup=~s/\$patron/\$patron<\/font>/g;
$recup=~s/\$path/\$path<\/font>/g;
unless ($recup=~/\$p/){
$recup=~s/\$p/\$p<\/font>/g;
};
$recup=~s/\$output/\$output<\/font>/g;
$recup=~s/\$num/\$num<\/font>/g;
$recup=~s/\$name/\$name<\/font>/g;
$recup=~s/\$nextligne/\$nextligne<\/font>/g;
$recup=~s/\$longueur/\$longueur<\/font>/g;
$recup=~s/\$Ligne/\$Ligne<\/font>/g;
$recup=~s/\$ligne/\$ligne<\/font>/g;
unless ($recup=~/\$k/){
$recup=~s/\$k/\$k<\/font>/g;
};
unless ($recup=~/\$j/){
$recup=~s/\$j/\$j<\/font>/g;
};
unless ($recup=~/\$i/){
$recup=~s/\$i/\$i<\/font>/g;
};
$recup=~s/\$forme/\$forme<\/font>/g;
$recup=~s/\$FichierSortie/\$FichierSortie<\/font>/g;
$recup=~s/\$FichierEntree/\$FichierEntree<\/font>/g;
$recup=~s/\$file3p3/\$file3p3<\/font>/g;
$recup=~s/\$file3p2/\$file3p2<\/font>/g;
$recup=~s/\$file3p1/\$file3p1<\/font>/g;
$recup=~s/\$file2p3/\$file2p3<\/font>/g;
$recup=~s/\$file2p2/\$file2p2<\/font>/g;
$recup=~s/\$file2p1/\$file2p1<\/font>/g;
$recup=~s/\$file1p3/\$file1p3<\/font>/g;
$recup=~s/\$file1p2/\$file1p2<\/font>/g;
$recup=~s/\$file1p1/\$file1p1<\/font>/g;
unless($recup=~/\$file/) {
$recup=~s/\$file/\$file<\/font>/g;
};
$recup=~s/\$DUMPFULLtxt/\$DUMPFULLtxt<\/font>/g;
unless($recup=~/\$DUMPFULL/) {
$recup=~s/\$DUMPFULL/\$DUMPFULL<\/font>/g;
};
$recup=~s/\$deux/\$deux<\/font>/g;
$recup=~s/\$decoupeligne/\$decoupeligne<\/font>/g;
unless($recup=~/\$d/) {
$recup=~s/\$d/\$d<\/font>/g;
};
$recup=~s/\$compare/\$compare<\/font>/g;
$recup=~s/\$ChaineUsage/\$ChaineUsage<\/font>/g;
unless($recup=~/\$c/) {
$recup=~s/\$c/\$c<\/font>/g;
};
unless($recup=~/\$b/) {
$recup=~s/\$b/\$b<\/font>/g;
};
$recup=~s/\$ARGV/\$ARGV<\/font>/g;
$recup=~s/\$avant/\$avant<\/font>/g;
$recup=~s/\$apres/\$apres<\/font>/g;
unless($recup=~/\$a/) {
$recup=~s/\$a/\$a<\/font>/g;
};
$recup=~s/\$4/\$4<\/font>/g;
$recup=~s/\$3/\$3<\/font>/g;
$recup=~s/\$2/\$2<\/font>/g;
$recup=~s/\$1/\$1<\/font>/g;
unless (($recup=~/\$/)||($recup=~/\$/)){
$recup=~s/\$/\$<\/font>/g;
};

##Les numéros##
$recup=~s/<\/font>0/0<\/font>/g; $recup=~s/<\/font>1/1<\/font>/g; $recup=~s/<\/font>2/2<\/font>/g;
$recup=~s/<\/font>3/3<\/font>/g; $recup=~s/<\/font>4/4<\/font>/g; $recup=~s/<\/font>5/5<\/font>/g;
$recup=~s/<\/font>6/6<\/font>/g; $recup=~s/<\/font>7/7<\/font>/g; $recup=~s/<\/font>8/8<\/font>/g;
$recup=~s/<\/font>9/9<\/font>/g;
$recup=~s/<\/font>0/0<\/font>/g; $recup=~s/<\/font>1/1<\/font>/g; $recup=~s/<\/font>2/2<\/font>/g;
$recup=~s/<\/font>3/3<\/font>/g; $recup=~s/<\/font>4/4<\/font>/g; $recup=~s/<\/font>5/5<\/font>/g;
$recup=~s/<\/font>6/6<\/font>/g; $recup=~s/<\/font>7/7<\/font>/g; $recup=~s/<\/font>8/8<\/font>/g;
$recup=~s/<\/font>9/9<\/font>/g;
$recup=~s/<\/font>0/0<\/font>/g; $recup=~s/<\/font>1/1<\/font>/g; $recup=~s/<\/font>2/2<\/font>/g;
$recup=~s/<\/font>3/3<\/font>/g; $recup=~s/<\/font>4/4<\/font>/g; $recup=~s/<\/font>5/5<\/font>/g;
$recup=~s/<\/font>6/6<\/font>/g; $recup=~s/<\/font>7/7<\/font>/g; $recup=~s/<\/font>8/8<\/font>/g;
$recup=~s/<\/font>9/9<\/font>/g;
$recup=~s/<\/font>0/0<\/font>/g; $recup=~s/<\/font>1/1<\/font>/g; $recup=~s/<\/font>2/2<\/font>/g;
$recup=~s/<\/font>3/3<\/font>/g; $recup=~s/<\/font>4/4<\/font>/g; $recup=~s/<\/font>5/5<\/font>/g;
$recup=~s/<\/font>6/6<\/font>/g; $recup=~s/<\/font>7/7<\/font>/g; $recup=~s/<\/font>8/8<\/font>/g;
$recup=~s/<\/font>9/9<\/font>/g;
##Les commandes Perl par ordre alphabétique##
$recup=~s/\while/\while<\/font>/g;
$recup=~s/use locale/use locale<\/font>/g;
$recup=~s/unless/unless<\/font>/g;
$recup=~s/sub /sub <\/font>/g;
$recup=~s/system/system<\/font>/g;
$recup=~s/readdir/readdir<\/font>/g;
$recup=~s/print/print<\/font>/g;
$recup=~s/\opendir/\opendir<\/font>/g;
$recup=~s/\open/\open<\/font>/g;
unless($recup=~/\$next/) {
$recup=~s/next/next<\/font>/g;
};
$recup=~s/\my/\my<\/font>/g;
if (($recup=~/[^a-z]\if/)||($recup=~/[^A-Z]\if/)){
$recup=~s/\if /\if <\/font>/g;
}; #on inclut l'espace avant la condition en n'excluant que les caractères alphabétiques
$recup=~s/^\if/\if<\/font>/g; # la condition en début de ligne n'a pas été prise en compte
$recup=~s/foreach/foreach<\/font>/g;
unless($recup=~/exit.txt/){
$recup=~s/exit/exit<\/font>/g;
};
$recup=~s/elsif/elsif<\/font>/g;
$recup=~s/else/else<\/font>/g;
$recup=~s/die/die<\/font>/g;
$recup=~s/chomp/chomp<\/font>/g;
$recup=~s/closedir/closedir<\/font>/g;
$recup=~s/close/close<\/font>/g;
$recup=~s/\{/\{<\/font>/g;
$recup=~s/\}/\}<\/font>/g;
$recup=~s/\@token/\@token<\/font>/g;
$recup=~s/\@pos/\@pos<\/font>/g;
$recup=~s/\@lignes/\@lignes<\/font>/g;
$recup=~s/\@lemme/\@lemme<\/font>/g;
$recup=~s/\@files/\@files<\/font>/g;
$recup=~s/\@decoupeligne/\@decoupeligne<\/font>/g;
$recup=~s/\@ARGV/\@ARGV<\/font>/g;
$recup=~s/\@_/\@_<\/font>/g;
unless ($recup=~/\@/){
$recup=~s/\@/\@<\/font>/g;
};
$recup=~s/$/\(<\/font>/g;
$recup=~s/$/\)<\/font>/g;

#Les commandes Bash par ordre alphabétique
$recup=~s/sed /sed <\/font>/g;
$recup=~s/perl /perl <\/font>/g;
$recup=~s/rm /rm <\/font>/g;
$recup=~s/rename /rename <\/font>/g;
$recup=~s/ls /ls <\/font>/g;
$recup=~s/grep /grep <\/font>/g;
$recup=~s/echo /echo <\/font>/g;
$recup=~s/cat /cat <\/font>/g;
$recup=~s/cp /cp <\/font>/g;
$recup=~s/cd /cd <\/font>/g;
$recup=~s/pwd /pwd <\/font>/g;
$recup=~s/for line /for line <\/font>/g;
$recup=~s/let /let <\/font>/g;
#Résidus
$recup=~s/par recup\n/par recup<\/br>\n/g;
if (($recup=~/^\#perl/)||($recup=~/^\#Dans/)) {
$recup=~s/\#/\#<\/font>/g;
};
$recup=~s/adjectif <\/font>/adjectif /g;
$recup=~s/elsif <\/font>/elsif <\/font>/g;
#2. Memorisation dans DUMPFULL
$DUMPFULL.=$recup;
}
#3. En-tete
print FILEOUT "<html>\n
<head>\n
<title>La langue n'est pas un long fleuve tranquille 1: Comparaison morpholexicale du vocable potentiel dans le domaine de la biologie cellulaire entre le Français et le Portugais<\/title>\n
<meta http-equiv=\"content-type\" content=\"text\/html; charset=windows-1250\">\n
<\/head>\n
<body bgcolor=\"\#DEF7D8\" text=\"\#DE6B3F\" link=\"\#034B16\" alink=\"\#C059E2\" vlink=\"\#431C4F\" background=\".\/IMAGES\/multibk.jpg\">\n
<blockquote>\n
\n
<h2>",$file,"<\/font><\/h2>\n";

#4. Remplacement des entites
print FILEOUT $DUMPFULL;
# Pied de page
print FILEOUT "<a href=\"\.\/index.html\"><img src=\"\.\/IMAGES\/index\.gif\"><\/a>\n<\/blockquote>\n<\/body>\n<\/html>\n";
print "\nLe fichier bien accentue se nomme $file.html";
#----------------------------------------------
close(FILEIN);
close(FILEOUT);