Foro - Perl en Español

por **josmanf** » 2005-06-07 15:02 @668

¿Cómo podría detectar enlaces rotos con Wget en Perl? :oops:

#!/usr/bin/perl -w
 
use strict;
use LWP::UserAgent;
 
my $ua = LWP::UserAgent->new;
$ua->agent("Agente Buscador/0.1 ");
 
my $req = HTTP::Request->new(GET => 'http://perlenespanol.com/');
my $res = $ua->request($req);
 
if ($res->is_success) {
    print $res->content;
}
else {
    print $res->status_line, "\n";
}
 
exit(1);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que hace es checar un determinado URL, si el URL es correcto entonces despliega la página, de lo contrario despliega el código de error que regresa la página (404 Not Found, 501 Server Error, etc., etc.). Me parece que algo así estás buscando.

SALUDOS

Perl user · por **Perl user** » 2005-06-08 12:39 @569

Bueno, la solución es factible, funciona, aunque en el if se vería mejor un unless y te evitas el else. En fin, mi solución es la siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use LWP::Simple;
use Carp;
 
croak( "Url no existe o contenido inalcanzable" )
    unless is_success( get_print( "http://www.google.com" ) );
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pequeña, simple, funcional y "cool looking"

Saludos,

por **kidd** » 2005-06-08 14:30 @646

No hay duda de que en Perl TODO se puede hacer más sencillo... muy buena respuesta :wink:

SALUDOS

por **josmanf** » 2005-06-08 15:48 @700

Se trata de realizar un pequeño script que, utilizando Wget y SPIDER me encuentre los enlaces no válidos en mi bookmarks.html.
Casi lo tengo pero no consigo que me funcione bien.
:oops:

Perl user · por **Perl user** » 2005-06-08 19:55 @871

¡Ah!, entonces tu problema se solucionará cuando leas el man de wget y leas sobre el calificador --spider.

Código: Seleccionar todo: wget --spider --force-html -i bookmars.html

Saludos,

Foro - Perl en Español

Ayuda con Wget

Ayuda con Wget

Publicidad

Ayuda con Wet spider

Re: Ayuda con wget spider

¿Quién está conectado?