• Publicidad

Duda con Mechanize

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Duda con Mechanize

Notapor BigBear » 2010-08-29 18:50 @826

Hola. Estoy usando WWW::Mechanize para hacer varias peticiones a distintas web pero hay algunas web
que son inexistentes y me tira:

Sintáxis: [ Descargar ] [ Ocultar ]
Using text Syntax Highlighting
Error GETing http://127.0.0.1///images//images: Not Found at
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use WWW::Mechanize;
  2. use HTTP::Response;
  3.  
  4. my $new = WWW::Mechanize->new();
  5. $new->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");
  6.  
  7. open (FILE,"yeah.txt");
  8. @webs = <FILE>
  9. close FILE;
  10.  
  11. for(@webs) {
  12.     cara($_);
  13. }
  14.  
  15. sub cara {
  16.     return $new->get($_[0])->content;
  17. }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


¿No hay alguna forma de evitar el error y seguir el script a pesar de que la página realmente no exista.
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Re: Duda con Mechanize

Notapor explorer » 2010-08-29 19:02 @834

Habría que comprobar el resultado antes de recuperar el contenido (no probado):
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
sub cara {
    $new->get($_[0]);
    if ($new->success()) {
        return $new->content();
    }
    return;
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
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

Re: Duda con Mechanize

Notapor BigBear » 2010-08-30 12:48 @575

Sorry, se me olvidó decirte que ya había intentado eso y todavía me seguía dando errores en ese, entonces :(
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Re: Duda con Mechanize

Notapor explorer » 2010-08-30 12:59 @583

Vale, leyendo un poco más la documentación de WWW::Mechanize, comenta que hay una opción llamada autocheck, que por defecto está puesto a 1, por lo que las operaciones get() y post() que fallan se convierten en avisos de error.

No lo he probado, pero podrías hacer el poner ese valor a 0, o, finalmente, meter la llamada get() dentro de un eval().
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

Re: Duda con Mechanize

Notapor BigBear » 2010-08-30 14:08 @630

Muchas gracias, explorer.

Otra cosa, creo que voy a tener que mejorar mi inglés para leer las documentaciones, si quiero seguir en esto. :lol:
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 8 invitados