Formació autodidàctica en mòduls d'Enginyeria lingüística aplicada a la Traducció

my (@llista,$nom,$nomSenseExtensio,$extensio,$comptador);
@llista = glob('*.htm');
push (@llista,glob('*.html'));
#$comptador=1000;
#la linia anterior es un comentari. Aquesta tambe i sense accents per
#raons llargues d'explicar. El que importa es que podem fer la feina 
#en varies tongades i adaptar el comptador al nombre de fitxers ja
#processats
$comptador=0;
foreach $nom (@llista) {
	next unless $nom =~ /^(.+)\.([^\.]+)$/;
	$nomSenseExtensio=$1;
	$extensio=$2;
	$comptador++;
	# canviem el nom car HTML2TXT requereix format 8.3
	rename "$nomSenseExtensio.$extensio", "F$comptador.htm";
	print "Convertim $nomSenseExtensio.$extensio en F$comptador.txt\n";
	system "html2txt -w F$comptador.htm F$comptador.txt";
	}
print STDERR "\n\nTot va bé si acaba bé.\n";