Using perl Syntax Highlighting
#!/usr/bin/perl -w
use LWP::Simple;
use strict;
use warnings;
# Constantes
my $URL_BASE = 'http://www.ncdc.noaa.gov/gibbs/image/GOE-12/IR';
my $IMG_FMT = '%04d-%02d-%02d-%02d';
$|++;
# Bajar los imágenes
# Para los meses que tienen 31 días:
foreach my $anno ( 2004 ) {
foreach my $mes ( 1, 3, 5, 7, 8, 10, 12 ) {
foreach my $dia ( 1 .. 31 ) {
foreach my $hora ( 0, 3, 6, 9 ) {
my $imagen = sprintf $IMG_FMT, $anno, $mes, $dia, $hora;
print "Bajando imagen $imagen... ";
mirror( "$URL_BASE/$imagen", "$imagen.jpeg" );
print "Ok\n";}}}
#para los meses que tienen 30 días:
foreach my $mes ( 4, 6, 9, 11 ) {
foreach my $dia ( 1 .. 30 ) {
foreach my $hora ( 0, 3, 6, 9 ) {
my $imagen = sprintf $IMG_FMT, $anno, $mes, $dia, $hora;
print "Bajando fichero $imagen... ";
mirror( "$URL_BASE/$imagen", "$imagen.jpeg" );
print "Ok\n";}}}
#Para el mes de febrero que tiene 28 días:
foreach my $mes ( 2 ) {
foreach my $dia ( 1 .. 28 ) {
foreach my $hora ( 0, 3, 6, 9 ) {
my $imagen = sprintf $IMG_FMT, $anno, $mes, $dia, $hora;
print "Bajando fichero $imagen... ";
mirror( "$URL_BASE/$imagen", "$imagen.jpeg" );
print "Ok\n";}}}
}
use LWP::Simple;
use strict;
use warnings;
# Constantes
my $URL_BASE = 'http://www.ncdc.noaa.gov/gibbs/image/GOE-12/IR';
my $IMG_FMT = '%04d-%02d-%02d-%02d';
$|++;
# Bajar los imágenes
# Para los meses que tienen 31 días:
foreach my $anno ( 2004 ) {
foreach my $mes ( 1, 3, 5, 7, 8, 10, 12 ) {
foreach my $dia ( 1 .. 31 ) {
foreach my $hora ( 0, 3, 6, 9 ) {
my $imagen = sprintf $IMG_FMT, $anno, $mes, $dia, $hora;
print "Bajando imagen $imagen... ";
mirror( "$URL_BASE/$imagen", "$imagen.jpeg" );
print "Ok\n";}}}
#para los meses que tienen 30 días:
foreach my $mes ( 4, 6, 9, 11 ) {
foreach my $dia ( 1 .. 30 ) {
foreach my $hora ( 0, 3, 6, 9 ) {
my $imagen = sprintf $IMG_FMT, $anno, $mes, $dia, $hora;
print "Bajando fichero $imagen... ";
mirror( "$URL_BASE/$imagen", "$imagen.jpeg" );
print "Ok\n";}}}
#Para el mes de febrero que tiene 28 días:
foreach my $mes ( 2 ) {
foreach my $dia ( 1 .. 28 ) {
foreach my $hora ( 0, 3, 6, 9 ) {
my $imagen = sprintf $IMG_FMT, $anno, $mes, $dia, $hora;
print "Bajando fichero $imagen... ";
mirror( "$URL_BASE/$imagen", "$imagen.jpeg" );
print "Ok\n";}}}
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Yo separo los meses que tienen igual cantidad de días y repito el procedimiento 3 veces. A ver si me ayudan por favor, a hacer un solo procedimiento pera todos los meses respetando el número de días que tenga cada mes, muchas gracias y adiós.
