• Publicidad

Problemas con un Robot

¿Ya sabes lo que es una referencia? Has progresado, el nível básico es cosa del pasado y ahora estás listo para el siguiente nivel.

Problemas con un Robot

Notapor dovier_antonio » 2006-08-22 10:50 @493

Hace algunos días he estado trabajando en la implementación de un Robot que repcupere información en la Web, pues bien, buscando en la CPAN, opté por el módulo WWW::Robot... la duda mía es la siguiente.... ¿Puedo descargar las imágenes de una página descargada por el Robot? Hasta el momento he podido descargar el texto, pero no así las imágenes...

Saludos,
Dovier
"...Si el universo fuese un programa estaría implementado en Perl, y correría sobre un Sistema Operativo GNU/Linux..."

$_="7a65646e654d206c6c6f706952206f696e6f746e4120726569766f44";
while (s/..$//) {
print chr(hex($&))
}
Avatar de Usuario
dovier_antonio
Perlero nuevo
Perlero nuevo
 
Mensajes: 15
Registrado: 2005-05-27 14:21 @639
Ubicación: Ciudad de la Habana, Cuba

Publicidad

Notapor explorer » 2006-08-22 11:28 @519

Supongo que deberás intérpretar el código de las páginas bajadas para acceder a los enlaces de las imágenes y luego bajarlas como ficheros independientes.

Pero hay excepciones. Los URL pueden estar escritos en forma absoluta o relativa. Y la presencia de una etiqueta <base> también lo cambia.

Es un ejercicio interesante...

Yo usaría un mirror. Alguno también hay en Perl.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor kidd » 2006-08-22 12:34 @565

Hola:

En el sitio hay un tutorial que te muestra como puedes descargar imagenes usando el módulo Image::Grab
http://perlenespanol.com/archives-tut/000037.html

Te puede dar una orientación de lo que necesitas.

Saludos
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor dovier_antonio » 2006-08-22 13:59 @624

kidd escribiste:Hola:

En el sitio hay un tutorial que te muestra como puedes descargar imagenes usando el módulo Image::Grab
http://perlenespanol.com/archives-tut/000037.html

Te puede dar una orientación de lo que necesitas.

Saludos


Hola kidd

Ya estuve viendo el tutorial al que usted se refiere, es cierto que el módulo Image::Grab está bueno, pero hasta donde estuve viendo, no permite hacer las descargas a tarvés de un proxy... me refiero a como se pueden hacer, por ejemplo, con el módulo LWP::UserAgent, en el cual se le especifica ($ua->proxy(['http', 'ftp']).......)

Saludos,
Dovier
"...Si el universo fuese un programa estaría implementado en Perl, y correría sobre un Sistema Operativo GNU/Linux..."

$_="7a65646e654d206c6c6f706952206f696e6f746e4120726569766f44";
while (s/..$//) {
print chr(hex($&))
}
Avatar de Usuario
dovier_antonio
Perlero nuevo
Perlero nuevo
 
Mensajes: 15
Registrado: 2005-05-27 14:21 @639
Ubicación: Ciudad de la Habana, Cuba

Notapor kidd » 2006-08-22 18:16 @803

Hola:

De hecho si tiene la opción, Image::Grab usa el módulo LWP::Useragent y crea un objeto ua, por lo que podrías hacer algo así:

Código: Seleccionar todo
use Image::Grab;

my $foo = new Image::Grab;

$foo->ua->proxy([foo]);



Saludos
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor dovier_antonio » 2006-08-23 17:52 @786

Hola

Ante todo mucha gracias, ya trabajó sin problemas... ahora me surge otra duda... después que descargo las imágenes con el módulo Image::Grab, necesito, "antes de guardarla en el disco", comprobar su tamaño en pixels (anchoXlargo). Estuve revisando el módulo pero no trae función para esto. La otra opción sería descargar la imagen y posterior a esto entonces trabajarla con el módulo Image::Size...

Saludos,
Dovier
"...Si el universo fuese un programa estaría implementado en Perl, y correría sobre un Sistema Operativo GNU/Linux..."

$_="7a65646e654d206c6c6f706952206f696e6f746e4120726569766f44";
while (s/..$//) {
print chr(hex($&))
}
Avatar de Usuario
dovier_antonio
Perlero nuevo
Perlero nuevo
 
Mensajes: 15
Registrado: 2005-05-27 14:21 @639
Ubicación: Ciudad de la Habana, Cuba

Notapor kidd » 2006-08-23 18:17 @804

Hola:

Si, tendrás que usar otro módulo, pero para ello también hay un tutorial en el sitio :wink:
http://perlenespanol.com/archives-tut/000036.html

En el tutorial vienen dos manera distintas para leer las dimensiones de las imágenes.

Saludos
Uriel Lizama Perl programmer fundador de Perl en Español
Perl Programming Language
Avatar de Usuario
kidd
Creador de Perl en Español
Creador de Perl en Español
 
Mensajes: 1166
Registrado: 2003-10-15 16:52 @744
Ubicación: México

Notapor dovier_antonio » 2006-08-25 18:01 @792

Hola,

Muchas gracias por sus respuestas... ya he concluido el trabajo y está todo ok :)
"...Si el universo fuese un programa estaría implementado en Perl, y correría sobre un Sistema Operativo GNU/Linux..."

$_="7a65646e654d206c6c6f706952206f696e6f746e4120726569766f44";
while (s/..$//) {
print chr(hex($&))
}
Avatar de Usuario
dovier_antonio
Perlero nuevo
Perlero nuevo
 
Mensajes: 15
Registrado: 2005-05-27 14:21 @639
Ubicación: Ciudad de la Habana, Cuba


Volver a Intermedio

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron