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);