 Vie Jun 13, 2008 10:54 pm
|
 |
lis
Perlero Nuevo
|
Registrado: 27 May 2008
Mensajes: 22
|
|
| Descargar imágenes con Perl |
 |
|
HOLA: QUIERO DESCARGAR IMÁGENES DESDE ESTE SITIO: http://www.ncdc.noaa.gov/gibbs/calendar/2005 , Y REVISANDO POR INTERNET TENGO QUE USAR Image::Grab. LO DESCARGUÉ PERO AUN ASÍ NO LO PUEDO HACER.
A QUIEN ME AYUDE SE LOS AGRADEZCO DE ANTEMANO, ADIÓS... |
|
|
|
|
Sab Jun 14, 2008 3:40 am
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4091
Ubicación: Valladolid, España
|
|
|
|
|
¿Qué dificultad hay en eso?
| Perl: | use Image:: Grab qw(grab );
$imagen = grab (URL=> 'http://www.ncdc.noaa.gov/gibbs/image/GOE-12/VS/2005-10-12-00'); |
|
|
|
Sab Jun 14, 2008 7:07 am
|
|
kidd
Creador de Perl en Español
|
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
|
|
|
|
|
Sab Jun 14, 2008 8:28 am
|
|
lis
Perlero Nuevo
|
Registrado: 27 May 2008
Mensajes: 22
|
|
| DESCARGAR IMÁGENES DESDE PERL |
|
|
HOLA GRACIAS POR TU RESPUESTA. HICE LO QUE DECÍAS Y ESTO ME SALE EN CONSOLA:
| Código: |
Can't locate Image/Grab.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at ./is2.pl line 2.
BEGIN failed--compilation aborted at ./is2.pl line 2. |
HABÍA TAMBIÉN LEÍDO EL TUTORIAL, Y NO SÉ QUÉ ES LO QUE PASA.
GRACIAS KIDD. |
|
|
Sab Jun 14, 2008 9:37 am
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4091
Ubicación: Valladolid, España
|
|
|
|
|
| Pues pasa que Perl no encuentra el módulo Image::Grab. Está mal instalado o no está instalado. |
|
|
Sab Jun 14, 2008 10:09 am
|
|
kidd
Creador de Perl en Español
|
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
|
|
|
|
|
| Deberás de instalar el módulo que necesitas. Dependiendo de la plataforma con que estés trabajando será el proceso que deberás de seguir. |
|
|
Sab Jun 14, 2008 10:12 am
|
|
lis
Perlero Nuevo
|
Registrado: 27 May 2008
Mensajes: 22
|
|
|
|
|
Sab Jun 14, 2008 2:07 pm
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4091
Ubicación: Valladolid, España
|
|
|
|
|
Dom Jun 15, 2008 9:59 am
|
|
lis
Perlero Nuevo
|
Registrado: 27 May 2008
Mensajes: 22
|
|
| DESCARGAR IMÁGENES DESDE Perl |
|
|
HOLA EXPLORER: YA REVISÉ BIEN LOS TUTORIALES Y LOGRÉ INSTALARLO BIEN, YA NO TENGO EL PROBLEMA DE ANTES.
OCUPÉ TODAS LAS FORMAS DE DESCARGAR IMÁGENES QUE SALE EN EL Grab.pod, TODO VA BIEN HASTA AHÍ PERO NO ME DESCARGA O GUARDA LAS IMÁGENES.
AYÚDAME PORFA, YA QUE TENGO QUE DESCARGAR IMÁGENES DE TODO UN AÑO, GRACIAS.
PD: USO DEBIAN. |
|
|
Dom Jun 15, 2008 3:46 pm
|
|
explorer
Moderador
|
Registrado: 24 Jul 2005
Mensajes: 4091
Ubicación: Valladolid, España
|
|
|
|
|
| ¿Y dónde está el código Perl que has usado y que te falla? |
|
|
Lun Jun 16, 2008 3:51 pm
|
|
lis
Perlero Nuevo
|
Registrado: 27 May 2008
Mensajes: 22
|
|
| DESCARGAR IMÁGENES DESDE Perl |
|
|
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.
| Perl: | 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; |
Otra vez, Gracias... |
|
|
Lun Jun 16, 2008 7:52 pm
|
|
kidd
Creador de Perl en Español
|
Registrado: 15 Oct 2003
Mensajes: 1389
Ubicación: México
|
|
|
|
|
Considerando lo que te dice explorer el código debe de ser similar a esto:
| Perl: | 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; |
|
|
|
Lun Jun 16, 2008 9:45 pm
|
|
lis
Perlero Nuevo
|
Registrado: 27 May 2008
Mensajes: 22
|
|
| DESCARGAR IMÁGENES DESDE Perl |
|
|
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. |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
