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

sh2html.pl
#!/usr/bin/perl
use locale; #caracteres accentues
#On lance comme cela: perl sh2html.pl
#On obtient: fichier.pl.html
#Rem: J'aurai pu faire mieux: j'aurai préféré colorier les lignes plûtot que les items, à une autre version !
#J'ai fait un tableau séparé de perl2html.pl parce que perl n'accepte pas de remplacer des étoiles. La prochaine fois j'améliorerai ce programme et je fusionnerai les deux. Et j'éviterai de mettre des étoiles pour séparer, mais vu la taille des programmes TABV3 et TABV4 j'en avais besoin.
print "Bienvenu(e) au programme qui permet \n d'afficher les programmes bash shell 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##
unless($recup=~/\*/) {
$recup=~s/\#\!\/bin\/bash/\#\!\/bin\/bash<\/font>/g;
if ($recup=~/###/g){
$recup=~s/$recup/$recup<\/font>/g;
$recup=~s/<\/br>\n<\/font>/<\/font><\/br>\n/g; #Résidus
};
if ($recup=~/\/\/\//g){
$recup=~s/$recup/$recup<\/font>/g;
$recup=~s/<\/br>\n<\/font>/<\/font><\/br>\n/g; #Résidus
};
if ($recup=~/@@@/g){
$recup=~s/$recup/$recup<\/font>/g;
$recup=~s/<\/br>\n<\/font>/<\/font><\/br>\n/g; #Résidus
};
if ($recup=~/xxx/g){
$recup=~s/$recup/$recup<\/font>/g;
$recup=~s/<\/br>\n<\/font>/<\/font><\/br>\n/g; #Résidus
};
unless(($recup=~/^/)||($recup=~//)) {
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;
}; ###Il ne supporte pas les étoiles
$recup=~s/THEMES PORTUGAIS/THEMES PORTUGAIS<\/font>/g;
$recup=~s/THEMES FRANCAIS/THEMES PORTUGAIS<\/font>/g;
$recup=~s/POST EDITION/POST EDITION<\/font>/g;
##Quelques variables sans le dollar##
$recup=~s/m1/m1<\/font>/g;
$recup=~s/n1/n1<\/font>/g;
$recup=~s/m2/m2<\/font>/g;
$recup=~s/n2/n2<\/font>/g;
$recup=~s/m3/m3<\/font>/g;
$recup=~s/n3/n3<\/font>/g;
$recup=~s/i1/i1<\/font>/g;
$recup=~s/k1/k1<\/font>/g;
$recup=~s/i2/i2<\/font>/g;
$recup=~s/k2/k2<\/font>/g;
$recup=~s/i3/i3<\/font>/g;
$recup=~s/k3/k3<\/font>/g;
$recup=~s/a=/a=<\/font>/g;
$recup=~s/a1=/a1=<\/font>/g;
$recup=~s/a2=/a2=<\/font>/g;
$recup=~s/a3=/a3=<\/font>/g;
$recup=~s/a4=/a4=<\/font>/g;
$recup=~s/b=/b=<\/font>/g;
$recup=~s/b1=/b1=<\/font>/g;
$recup=~s/b2=/b2=<\/font>/g;
$recup=~s/b3=/b3=<\/font>/g;
$recup=~s/b4=/b4=<\/font>/g;
$recup=~s/c=/c=<\/font>/g;
$recup=~s/c1=/c1=<\/font>/g;
$recup=~s/c2=/c2=<\/font>/g;
$recup=~s/c3=/c3=<\/font>/g;
$recup=~s/c4=/c4=<\/font>/g;
$recup=~s/d=/d=<\/font>/g;
$recup=~s/d1=/d1=<\/font>/g;
$recup=~s/d2=/d2=<\/font>/g;
$recup=~s/d3=/d3=<\/font>/g;
$recup=~s/d4=/d4=<\/font>/g;
$recup=~s/e=/e=<\/font>/g;
$recup=~s/e1=/e1=<\/font>/g;
$recup=~s/e2=/e2=<\/font>/g;
$recup=~s/e3=/e3=<\/font>/g;
$recup=~s/e4=/e4=<\/font>/g;
$recup=~s/f=/f=<\/font>/g;
$recup=~s/f1=/f1=<\/font>/g;
$recup=~s/f2=/f2=<\/font>/g;
$recup=~s/f3=/f3=<\/font>/g;
$recup=~s/f4=/f4=<\/font>/g;
$recup=~s/z=/z=<\/font>/g;
$recup=~s/&quot\;z/&quot\;z<\/font>/g;
$recup=~s/tablo=/tablo=<\/font>/g;
$recup=~s/var1=/var1=<\/font>/g;
$recup=~s/var2=/var2=<\/font>/g;
$recup=~s/var3=/var3=<\/font>/g;
$recup=~s/var4=/var4=<\/font>/g;
$recup=~s/var5=/var5=<\/font>/g;
$recup=~s/var6=/var6=<\/font>/g;
$recup=~s/var7=/var7=<\/font>/g;
$recup=~s/var8=/var8=<\/font>/g;
$recup=~s/a href=<\/font>/a href/g; #correction
$recup=~s/mot01/mot01<\/font><\/b>/g;
$recup=~s/potentiel de repos/potentiel de repos<\/b>/g;
$recup=~s/potentiel-de-repos/potentiel-de-repos<\/b>/g;
$recup=~s/potencial de repouso/potencial de repouso<\/b>/g;
$recup=~s/potencial-de-repouso/potencial-de-repouso<\/b>/g;

##Les variables par ordre alphabétique##
unless ($recup=~/\$z/){
$recup=~s/\$z/\$z<\/font>/g;
};
unless ($recup=~/\$var/){
$recup=~s/\$var/\$var<\/font>/g;
};
$recup=~s/\$treetagger/\$treetagger<\/font>/g;
unless ($recup=~/\$tablo/){
$recup=~s/\$tablo/\$tablo<\/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;
unless ($recup=~/\$n/){
$recup=~s/\$n/\$n<\/font>/g;
};
unless ($recup=~/\$m/){
$recup=~s/\$m/\$m<\/font>/g;
};
$recup=~s/\$line/\$line<\/font>/g;
$recup=~s/\$longueur/\$longueur<\/font>/g;
$recup=~s/\$Ligne/\$Ligne<\/font>/g;
$recup=~s/\$ligne/\$ligne<\/font>/g;
unless ($recup=~/\$l/){
$recup=~s/\$l/\$l<\/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;
};
unless($recup=~/\$f/) {
$recup=~s/\$f/\$f<\/font>/g;
};
unless($recup=~/\$e/) {
$recup=~s/\$e/\$e<\/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 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;
$recup=~s/mkdir /mkdir <\/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);