mozillatable2txt.pl

#!/usr/bin/perl
use locale; #caracteres accentues
#On lance comme cela: perl mozillatable2txt.pl
#On obtient: fichier-liste.txt
print "Bienvenu(e) au programme qui permet de transformer \n des tableaux html en des fichiers texte. \n";
print "Il s'agit de préférence des tableaux issus de \n l'option Copier en HTML de Mozilla Firefox.\n";
print "Nom du fichier de travail, de preference un .html ou un .txt au format UNIX: \n";
my $file=<STDIN>;
chomp($file);
open(FILEIN, $file);
open(FILEOUT, ">$file-liste.txt");
my $DUMPFULL="";
while(my $recup=<FILEIN>) {
#1.
$recup=~s/0//g;
$recup=~s/1//g;
$recup=~s/2//g;
$recup=~s/3//g;
$recup=~s/4//g;
$recup=~s/5//g;
$recup=~s/6//g;
$recup=~s/7//g;
$recup=~s/8//g;
$recup=~s/9//g;
$recup=~s/<tr>//g;
$recup=~s/<\/tr>//g;
$recup=~s/<td>//g;
$recup=~s/<\/td>//g;
$recup=~s/<td align=\"right\">//g;
$recup=~s/<table border=\"\">//g;
$recup=~s/<\/table>//g;
$recup=~s/<html>//g;
$recup=~s/<\/html>//g;
$recup=~s/<h>//g;
$recup=~s/<\/h>//g;

#2. Memorisation dans DUMPFULL
$DUMPFULL.=$recup;
}
#3. Remplacement des entites
print FILEOUT $DUMPFULL;
print "\nLe fichier bien accentue se nomme $file-liste.txt";
print "\nAttendez renommage de l'extension...\n";
system "#!/bin/bash
rename \.txt-liste\.txt -liste\.txt *\.txt-liste\.txt;
rename \.html-liste\.txt -liste\.txt *\.html-liste\.txt;
ls > tous-vos-fichiers\.txt;
grep liste\.txt tous-vos-fichiers\.txt > nom-de-fichier\.txt;";
print "\nLe nouveau fichier créé se trouve dans cette liste: \n";
system "#!/bin/bash
cat nom-de-fichier\.txt;";
#----------------------------------------------
close(FILEIN);
close(FILEOUT);