¿Me podrían ayudar a obtener la URL actual en la que estoy ubicado (después de hacer un login)?
use strict;
use WWW::Mechanize;
use HTTP::Cookies;
my $urlActual;
my $url = "xxxxxxxxxxxxxx";
my $palabra;
my $username = 'xxxxxxxxxx';
my $password = 'xxxxxxxxxxxxx';
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
$mech->form_name('menubar_login');
$mech->field(txt_login => $username);
$mech->field(txt_clave => $password);
$mech->click();
my $app_content = $mech->content();
$urlActual = top.frame.location.href
Printf($urlActual)
Me salta un error en la penúltima linea.
Editado:
Y luego de recibir algunas respuestas sobre usar $mech->uri()
, me encuentro con el error: