Получать настоящий унифицированный указатель ресурса с WWW:: Mechanize PERL

Они могли бы помогать мне получать настоящий унифицированный указатель ресурса в той, которую я помещен (войдя в систему)?

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)

Меня отпускает ошибка в предпоследней линии.



Изданный: И после получая какие-то ответы на использовании $mech->uri(), я встречаюсь с ошибкой:

introducir la descripción de la imagen aquí

1
задан 18.01.2017, 22:41
0 ответов

Как он приходит в Вашей документации:

$mech->uri()

Возврати такую настоящую URI как объект URI.

Ссылка на документацию

1
ответ дан 03.12.2019, 17:38

Сообщение ошибки показывает, что тебе не хватает точки с запятой (;) в линии 18.

Решение: $mech->uri(); (добавлять точку с запятой)

1
ответ дан 03.12.2019, 17:38

Последние две линии не продолжают синтаксис Perl. Скорее они кажутся языка сценариев JavaScript.

Ты должен использовать метод uri ().

1
ответ дан 03.12.2019, 17:38