Kann nicht Methode "Header" auf einen undefinierten Wert bei WWW/Mechanize.pm Linie 2566

Question

aufrufen Ich mache gerade eine Prüfung mit WWW::Mechanize Modul auf Facebook, wenn ich versuche, den Code unten, es gibt mir einen Fehler

Die Methode kann nicht "Header" auf einen nicht definierten Wert an C nennen: /Strawberry/perl/vendor/lib/WWW/Mechanize.pm Linie 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

Ihre Seite öffnet sich in einer anderen Sprache als Englisch. Deshalb bekommst du diesen Fehler. Wenn Sie die Seite gewaltsam in Englisch öffnen, wird der Fehler verschwinden. Versuchen Sie unter Adresse:

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

oder, können Sie auf direkt auf Instanz HTML::Form::SubmitInput erhalten mit dieser:

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

oder, da es nur einen Klick-Button in der Form ist, dass Sie click mit nicht verwenden können, Argumente.

$mech->click() 

oder wie Sie direkt von @Borodin vorgeschlagen verwenden können (wie die E-Mail und Passwort-Feld nicht übersetzt):

für mich

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