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
-
- Publicidad
Problemas con un Robot
8 mensajes
• Página 1 de 1
Problemas con un Robot
por dovier_antonio » 2006-08-22 10:50 @493
"...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($&))
}
$_="7a65646e654d206c6c6f706952206f696e6f746e4120726569766f44";
while (s/..$//) {
print chr(hex($&))
}
-
dovier_antonio - Perlero nuevo
- Mensajes: 15
- Registrado: 2005-05-27 14:21 @639
- Ubicación: Ciudad de la Habana, Cuba
Publicidad
por 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.
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
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por 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
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
-
kidd - Creador de Perl en Español
- Mensajes: 1166
- Registrado: 2003-10-15 16:52 @744
- Ubicación: México
por 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($&))
}
$_="7a65646e654d206c6c6f706952206f696e6f746e4120726569766f44";
while (s/..$//) {
print chr(hex($&))
}
-
dovier_antonio - Perlero nuevo
- Mensajes: 15
- Registrado: 2005-05-27 14:21 @639
- Ubicación: Ciudad de la Habana, Cuba
por 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í:
Saludos
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
-
kidd - Creador de Perl en Español
- Mensajes: 1166
- Registrado: 2003-10-15 16:52 @744
- Ubicación: México
por 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
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($&))
}
$_="7a65646e654d206c6c6f706952206f696e6f746e4120726569766f44";
while (s/..$//) {
print chr(hex($&))
}
-
dovier_antonio - Perlero nuevo
- Mensajes: 15
- Registrado: 2005-05-27 14:21 @639
- Ubicación: Ciudad de la Habana, Cuba
por 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
http://perlenespanol.com/archives-tut/000036.html
En el tutorial vienen dos manera distintas para leer las dimensiones de las imágenes.
Saludos
Si, tendrás que usar otro módulo, pero para ello también hay un tutorial en el sitio
http://perlenespanol.com/archives-tut/000036.html
En el tutorial vienen dos manera distintas para leer las dimensiones de las imágenes.
Saludos
-
kidd - Creador de Perl en Español
- Mensajes: 1166
- Registrado: 2003-10-15 16:52 @744
- Ubicación: México
por dovier_antonio » 2006-08-25 18:01 @792
Hola,
Muchas gracias por sus respuestas... ya he concluido el trabajo y está todo ok
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($&))
}
$_="7a65646e654d206c6c6f706952206f696e6f746e4120726569766f44";
while (s/..$//) {
print chr(hex($&))
}
-
dovier_antonio - Perlero nuevo
- Mensajes: 15
- Registrado: 2005-05-27 14:21 @639
- Ubicación: Ciudad de la Habana, Cuba
8 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 11 invitados