Foro - Perl en Español

por **lis** » 2008-06-16 16:51 @743

Hola Explorer, este es el script que ocupo. Una imagen pesa 238.4 KB y con este script me descarga un imagen vacía con extensión .jpg que pesa 27 KB.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Image::Grab;
my$img=new Image::Grab;
$img->url('http://www.ncdc.noaa.gov/gibbs/html/GOE-12/IR/2005-01-16-00');
$img->grab;
open(IMAGE,">imagenes_datelitales.jpg")||die"imagenes_datelitales.jpg: $!";
print IMAGE $img;
close IMAGE;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Otra vez, Gracias...

use Image::Grab;
my$img=new Image::Grab;
$img->url('http://www.ncdc.noaa.gov/gibbs/image/GOE-12/IR/2005-01-16-00');
$img->grab;
open(IMAGE,">imagenes_datelitales.jpg")||die"imagenes_datelitales.jpg: $!";
binmode(IMAGE);
print IMAGE $img;
close IMAGE;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **lis** » 2008-06-16 22:45 @990

Solo les escribo para decirles que ya descargué todas las imágenes de todo un año.
Gracias a los dos, porque sin su ayuda no lo hubiese logrado en tan poco tiempo.

Foro - Perl en Español

Descargar imágenes con Perl

DESCARGAR IMÁGENES DESDE Perl

Publicidad

DESCARGAR IMÁGENES DESDE Perl

¿Quién está conectado?