Descargar imágenes
Publicado: 2008-10-02 23:26 @018
Hola nuevamente amigos del foro. ¿Saben? estuve revisando el foro y vi un script hecho por explorer y kidd, que lo encontré genial, que era para bajar imágenes y quise hacer lo mismo yo pero con otra dirección y este es el script:
Me descarga las imágenes pero al momento de abrirlas no se ve nada. Nuevamente les pido su ayuda, por favor.
Using perl Syntax Highlighting
#!/usr/bin/perl -w
use LWP::Simple;
use strict;
use warnings;
my $URL_BASE = 'http://archive.eso.org/asm/ambient-server?night';
my $IMG_FMT = '%02d+Jan+2005&site=paranal';
$|++;
# Bajar los imágenes:
foreach my $dia ( 1 .. 31 ) {
my $imagen = sprintf $IMG_FMT, $dia;
print "Bajando imagen $dia\n";
mirror( "$URL_BASE=$imagen", "$dia.jpg" );
}
use LWP::Simple;
use strict;
use warnings;
my $URL_BASE = 'http://archive.eso.org/asm/ambient-server?night';
my $IMG_FMT = '%02d+Jan+2005&site=paranal';
$|++;
# Bajar los imágenes:
foreach my $dia ( 1 .. 31 ) {
my $imagen = sprintf $IMG_FMT, $dia;
print "Bajando imagen $dia\n";
mirror( "$URL_BASE=$imagen", "$dia.jpg" );
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Me descarga las imágenes pero al momento de abrirlas no se ve nada. Nuevamente les pido su ayuda, por favor.