Pues no veo el error... y en mi Perl 5.10 tampoco me lo da.
Lo único que se me ocurre es ir reduciendo el código, para hacerlo menos propenso a errores:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict
;
use warnings
;
my $web = q(https
://dss
.ucar
.edu
/datazone
/dsszone
/ds083
.2
);
my $opt = q(--header
'Cookie: [email protected]' -nc
);
my @dias_del = qw (0 31 28 31 30 31 30 31 31 30 31 30 31
);
open VN
, "wget -V |" or die 'cannot find wget';
my $vn = (<VN> =~ /^GNU Wget (\d+)\.(\d+)/) ? (100 * $1 + $2) : 109;
close(VN
);
$opt = ($vn > 109 ? '--no-check-certificate --no-cookies' : '--cookies=off') . ' ' . $opt;
for my $ano ( 5
) {
for my $mes ( 1
.. 12
) {
for my $dia ( 1
.. $dias_del[$mes] ) {
for my $hora ( 12
) {
my @filelist = (
sprintf("%4d/%4d.%02d/fnl_%02d%02d%02d_%02d00", (2000
+$ano), (2000
+$ano), $mes, $ano, $mes, $dia, $hora),
);
for my $file ( @filelist ) {
my $syscmd = "wget $opt $web/$file";
print "$syscmd\n";
system($syscmd);
}
}}}}
exit 0;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Hay un problema: hay que editarlo cada vez que se quiera cambiar de año. Y tener en cuenta si ese año es bisiesto o no.
Se puede hacer algo más simple: que Perl haga esas cuentas, por nosotros:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict
;
use warnings
;
use POSIX
qw(strftime
);
use Time
::Local;
my $web = q(https
://dss
.ucar
.edu
/datazone
/dsszone
/ds083
.2
);
my $opt = q(--header
'Cookie: [email protected]' -nc
);
open VN
, "wget -V |" or die 'cannot find wget';
my $vn = (<VN> =~ /^GNU Wget (\d+)\.(\d+)/) ? (100 * $1 + $2) : 109;
close(VN
);
$opt = ($vn > 109 ? '--no-check-certificate --no-cookies' : '--cookies=off') . ' ' . $opt;
@ARGV or die "Uso: $0 año\n";
my $ano_inicial = shift @ARGV;
my $ano;
my $inicio = timelocal
(0
,0
,12
,1
,0
,$ano_inicial);
do {
my $file = strftime
"%Y/%Y.%m/fnl_%y%m%d_%H%M", localtime $inicio;
my $syscmd = "wget $opt $web/$file";
print "$syscmd\n";
system($syscmd);
$inicio += 86_400
;
$ano = 1900
+ (localtime($inicio))[5
];
} while ($ano == $ano_inicial);
exit 0;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Aquí, le damos al programa el mes que queremos bajarnos (no probado), y se encarga de ir de día en día, desde el uno de enero de ese año, hasta el siguiente año.
Pero aún así... queda demasiado espeso... muchas cuentas y excepciones. Seguro que hay más formas de hacerlo.
Una solución intermedia es usar Date::Calc:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict
;
use warnings
;
use Date
::Calc qw( Add_Delta_Days Days_in_Year
);
## Constantes
my $web = q(https
://dss
.ucar
.edu
/datazone
/dsszone
/ds083
.2
);
my $opt = q(--header
'Cookie: [email protected]' -nc
);
open VN
, "wget -V |" or die 'cannot find wget';
my $vn = (<VN> =~ /^GNU Wget (\d+)\.(\d+)/) ? (100 * $1 + $2) : 109;
close(VN
);
$opt = ($vn > 109 ? '--no-check-certificate --no-cookies' : '--cookies=off') . ' ' . $opt;
## Año pasado por el usuario
@ARGV or die "Uso: $0 año\n";
my $ano = shift @ARGV;
## Rango de fechas
my @inicio = ($ano, 1
,1
);
my $dias = Days_in_Year
($ano,12
);
## Recorrer los valores
for my $i ( 0
.. $dias-1
) {
my @fecha = Add_Delta_Days
(@inicio, $i);
my $file = sprintf "%4d/%4d.%02d/fnl_%02d%02d%02d_1200",
$fecha[0
], $fecha[0
], $fecha[1
],
substr($fecha[0
],2
,2
), @fecha[1
,2
];
my $syscmd = "wget $opt $web/$file";
print "$syscmd\n";
system($syscmd);
}
exit 0;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Mi favorito es usar siempre el módulo DateTime:
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict
;
use warnings
;
use DateTime
;
## Constantes
my $web = q(https
://dss
.ucar
.edu
/datazone
/dsszone
/ds083
.2
);
my $opt = q(--header
'Cookie: [email protected]' -nc
);
open VN
, "wget -V |" or die 'cannot find wget';
my $vn = (<VN> =~ /^GNU Wget (\d+)\.(\d+)/) ? (100 * $1 + $2) : 109;
close(VN
);
$opt = ($vn > 109 ? '--no-check-certificate --no-cookies' : '--cookies=off') . ' ' . $opt;
## Año pasado por el usuario
@ARGV or die "Uso: $0 año\n";
my $ano_inicial = shift @ARGV;
## Empezamos el primero de año
my $dia = DateTime
->new(
day
=> 1
,
month
=> 1
,
year
=> $ano_inicial,
hour
=> 12
,
minute
=> 0
,
);
## Bucle
do {
my $file = $dia->strftime("%Y/%Y.%m/fnl_%y%m%d_%H%M");
my $syscmd = "wget $opt $web/$file";
print "$syscmd\n";
system($syscmd);
$dia->add( days
=> 1
);
} while ($dia->year() == $ano_inicial);
exit 0;Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
