Невозможно вызвать метод «header» по неопределенному значению на WWW/Mechanize.pm line 2566

Question

Я просто делаю тестирование с использованием модуля WWW::Mechanize на Facebook, когда я пытаюсь запустить код ниже, он возвращает мне ошибку

не удается вызвать метод "заголовок" на неопределенное значение в C: /Strawberry/perl/vendor/lib/WWW/Mechanize.pm линии 2566.

#!/usr/bin/perl -w 
use WWW::Mechanize; 
my $mech = WWW::Mechanize->new(); 
# Connect to server 
$mech->get("https://www.facebook.com"); 
$mech->success or die $mech->response->status_line; 

# Log into server 

$mech->field('email', 'xxx@xxx.com'); 
$mech->field('pass', 'xxxxxxx'); 
$mech->click_button(value => 'Log In'); 

Answer 1

Ваша страница открывается на другом языке, кроме английского. Вот почему вы получаете эту ошибку. Если вы быстро откроете страницу на английском языке, ошибка исчезнет. Попробуйте ниже адрес:

$mech->get("https://en-gb.facebook.com/"); 

или вы можете нажать непосредственно на экземпляре HTML::Form::SubmitInput, полученного с помощью этого:

$mech->current_form()->find_input(undef, 'submit'); 

или, как есть только один щелчок кнопки в форме вы можете использовать click с не аргументы.

$mech->click() 

или как это было предложено @Borodin можно непосредственно использовать (как электронная почта и поле пароля не переведено):

$mech->submit_form(with_fields => { 
         email => 'xxx@xxx.com', 
         pass => 'xxxxxxx' 
        } 
       );