problema con WWW:Mechanize y get

[puchitol]

Hola amigos,

tengo este trozo de codigo y me gustaria saber por que me da el siguiente error:

500 Can't connect to www.ua.es:80 (connect: Unknown error)

el codigo implicado es este:

#!/rafa/Perl/bin/perl

use WWW::Mechanize;
use DBI;
use DBD::mysql;
use HTML::TokeParser;
use Data::Dumper;
use HTML::Form;

$dbh = DBI->connect("dbi:mysql:dbname=nombrebd", "usuario", "clave");

my $mech = WWW::Mechanize->new();

my $url = 'http://www.ua.es';
$response = $mech->get( $url );

if ($response->is_success) {
print $response->content;
}
else {
print STDERR $response->status_line, "\n";
}

Me podriais ayudar?

gracias de antemano

PD: por si tiene algo que ver, indico que intento navegar a traves de un proxy. Aunque no me da problemas cuando intento navegar con un navegador normal como Firefox o IE

[puchitol]

Hola de nuevo,

se me olvidaba, trabajo bajo windows XP, creo que trabajo con la version 5.8 de ActivePerl ... Tambien tengo instalado el Apache Server, es necesario configurarlo para que utilice Perl?

saludos de nuevo.

[puchitol]

Hola de nuevo,

siempre se me olvida algo, explico el objetivo que busco:

quiero emular/realizar una navegacion por un sitio web para obtener unos valores y almacenarlos en una bd local mysql.

saludos

[monoswim]

Hola, primero que nada para usar perl en el apache no tenés que configurar nada, ya viene preparadito...Ahora bien el error ese de

500 Can't connect to www.ua.es:80 (connect: Unknown error)

lo tira el error log ? no sabés en que línea lo tira ?

Si es esta $response = $mech->get( $url ); podrías colocar un

$response = $mech->get( $url )|| print "error aquí";

Para que se ejecute bien eso o te imprima el mensaje...

Espero que te sirva

Saludos

[puchitol]

Hola de nuevo,

gracias por contestar tan rapido.

he colocado esa linea que me comentas:

$response = $mech->get( $url )|| print "error aquí";

pero no me muestra la cadena "error aqui", me muestra el error que ya comente en mi primer post (500 Can't connect ....)

Tambien queria aclarar otra cosa que se me olvido en los anteriores post, ejecuto este script desde linea de comandos, es decir:

c:\...\perl plantilla.pl

esto tambien por si sirve de aclaracion.

saludos y gracias de nuevo

[monoswim]

El error pienso que lo debe estar mandando ese módulo...La verdad que no estoy seguro, habria que checkearlo bein, talvés es el proxi que no le permite pasar...

Sin el proxi funciona bien ?

Saludos

[puchitol]

pues no se si funciona bien sin el proxy, no tengo acceso a el. Intentare probar desde otro PC con acceso directo a Internet (sin proxies).

Gracias y ya te contaré si funciona o no.

saludos

[makhix]

Trata de poner una linea como esta:

$mechanize->proxy(['https', 'http', 'ftp'], 'nombre_proxy:puerto');
Saludos