Foro - Perl en Español

Hola de nuevo, tras largo tiempo.

Estoy intentando leer varias URL, de red interna, que requieren autenticación con usuario/contraseña. El objetivo es leer el código retornado e interpretarlo en busca de ciertos valores.

Caso 1: Este funciona correctamente.
use LWP::UserAgent;
$ua = new LWP::UserAgent;
my $req = HTTP::Headers->new;

$req = HTTP::Request->new(GET => 'http://172.22.1.142/accessos/accessos.html');
$req->authorization_basic('miusuario', 'mipassword');
print "Content-type: text/html\
\
";
my $response = $ua->request($req);
print "Response Code: " . $response->code . "\n";
print "Response Content: " . $response->content;



Caso 2: Este no funciona. Retorna: 400 URL must be absolute
use LWP::UserAgent;
$ua = new LWP::UserAgent;
my $req = HTTP::Headers->new;

my $url = URI->new('http://172.22.33.177:8803/gpm/perform.xml?resource=,,SYSPLEX&id=8D4540450&buttons=no%20title=%22zSystem%20%%20CPU%20utilization%20(CP)%20by%20MVS%20image%22%20scrolling=%22no%22/%3E');

$req = HTTP::Request->new(GET => '$url');
$req->authorization_basic('misuario', 'mipassword');
print "Content-type: text/html\
\
";
my $response = $ua->request($req);
print "Response Code: " . $response->code . "\n";
print "Response Content: " . $response->content;

Este caso 2 no funciona, no encuentro el motivo. Probando desde un navegador funciona correctamente.
El caso 1 funciona correctamente tanto en navegador como con el script Perl.

¿Alguien puede ayudarme?

Un saludo

La variable $url está entrecomillada simple, por lo que entonces no es interpolada.

Hola Explorer,

he probado lo que dices, pero sigue igual, 400 URL must be absolute. ¿Puede ser por los parámetros?

Un saludo

Quizás el problema esté en el uso del módulo URI. Si ya tienes una URL completa, entonces eso es todo lo que necesitas para hacer el GET:

Hola.

Hay que escapar los paréntesis, las comas, en fin, todo o casi todo. La URL también se ha podido acortar y, como decías, quitar el módulo URI.
Finalmente, este código funciona:

use LWP::UserAgent;
$ua = new LWP::UserAgent;
my $req = HTTP::Headers->new;

$req = HTTP::Request->new(GET => 'http://172.22.33.177:8803/gpm/perform.xml?resource=%2C%2CSYSPLEX&id=8D0450&buttons=no');
$req->authorization_basic('miusuer', 'mipwd');
my $response = $ua->request($req);
print $response->content;


Un saludo y gracias.

El último artículo en Perl Maven habla precisamente de este tema:

LWP::UserAgent and Basic Authentication (en inglés)