Hola. En una ocasión anterior me ayudaron a descargar archivos HTML y transformarlos a .txt, acá está el script:
#!/usr/bin/perl
use strict;
use LWP::Simple;
$|++;
my $URL = 'http://weather.uwyo.edu/cgi-bin/sounding?region=samer&TYPE=TEXT%3ALIST&YEAR=2005';
my $url = '&STNM=85442';
foreach my $mes ( "04" ) {
foreach my $dia ( "01" .. "09" ) {
foreach my $hora ( 12 ) {
my $fecha = "$dia-$mes-$hora";
my $fichero = "$fecha.dat";
my $pagina = get("$URL&MONTH=$mes&FROM=$dia$hora&TO=$dia$hora$url");
if (defined $pagina) {
if ((my $datos) ...