keine Elemente für die Formnummer 2 in PhantomJS gefunden

Question

, wenn ich "--disk-cache = true" verwende in phantomjs_arg dann ist es Fehler immer in dieser Zeile:

my $form = $self->{obj_mech}->form_number(2); 

keine Elemente für die Formularnummer gefunden 2 bei modules/TestLogin.pm Linie 1129. bei /usr/local/share/perl/5.22.1/WWW/Mechanize/PhantomJS.pm Linie 796. WWW :: Mechanize :: PhantomJS :: signal_condition (WWW :: Mechanize :: PhantomJS = HASH (0x4cfa120), "Keine Elemente gefunden für Formular Nummer 2" genannt unter /usr/local/share/perl/5.22.1/WWW/Mechanize/PhantomJS.pm Zeile 1732 WWW :: Mechanize :: PhantomJS :: XPath (WWW :: Mechanize :: PhantomJS = HASH (0x4cfa120), "(// Form) [2]", "user_info", "Form-Nummer 2", "single" , 1) angerufen unter /usr/local/share/perl/5.22.1/WWW/Mechanize/PhantomJS.pm Zeile 2102 WWW :: Mechanize :: PhantomJS :: Formnummer (WWW :: Mechanize :: PhantomJS = HASH (0x4cfa120), 2) genannt bei modules/TestLogin.pm Linie 1129 TESTLOGIN :: TestLogin_login (TESTLOGIN = hash (0x4f5c8a8)) genannt wird bei collectBets.pl Leitung 20 Gedebuggte Programm beendet. Verwenden Sie q, um oder R zu beenden, verwenden Sie o inhibit_exit, um zu vermeiden, nach Programm Terminierung zu stoppen, h q, h R oder h o, um zusätzliche Informationen zu erhalten.

ohne Disk-Cashe funktioniert es gut. Dies ist mein Beispielcode zum besseren Verständnis.

#!/usr/bin/perl 
use strict; 
use warnings; 
use Helper; 
use WWW::Mechanize::PhantomJS; 
use DataBase; 
use MyConfig; 
use JSON; 
use DateTime; 
use HTML::Entities; 

sub new($$) { 
    my ($class,$params) = @_; 
    my $self = $params || {}; 
    bless $self, $class; 

    $self->{obj_mech} = WWW::Mechanize::PhantomJS -> new(phantomjs_arg => ['--ssl-protocol=any','--disk-cache=true','--max-disk-cache-size=1024'], ignore_ssl_errors => 1); 
    $self->{obj_helper} = new Helper(); 
    #$self->{obj_db} = new DataBase(); 
    $self->{logged_in} = 0; 
    #$self->setTorProxy(); 
    #$self->init_market_master(); 
    return $self; 
} 

Login(); 
print "\nlogin done...\n"; 
exit; 

sub Login { 
    my ($self) = @_; 
    my $html = $self->{obj_mech}->get("https://www.gmail.com/"); 
    sleep(25); 
    $html = $self->{obj_mech}->content; 
    $self->{obj_mech}->viewport_size({ width => 1366, height => 768 }); 

    my $form = $self->{obj_mech}->form_number(2); 

    my $user_name = '*****'; 
    my $password = '******'; 

    $self->{obj_mech}->set_fields('InputEmail' =>$user_name); 

    $self->{obj_mech}->set_fields('InputPassword' =>$password); 

    $self->{obj_mech}->click({ xpath => '//button[@class="PrimaryButton"]' }); 
    sleep(20); 
    my $test_html=$self->{obj_mech}->content; 
    $self->{obj_helper}->writeFileNew("TestLoginPage.html" , $test_html); 
    my $png = $self->{obj_mech}->content_as_png(); 
    $self->{obj_helper}->writeFileNew("LoginPage.png" , $png); 
    return 1; 
} 

Answer 1

Nun, bevor an den Plattencache-Argumente suchen, fand ich, dass es keine solche Elemente sind.

# There is only 1 form. If you want to keep this line, 
# you need to change the form number to 1 
my $form = $self->{obj_mech}->form_number(2); 

# I didn't find input field named 'InputEmail' 
# The actual field name is 'Email' 
$self->{obj_mech}->set_fields('InputEmail' =>$user_name); 

# You have to click 'Next' button firstly then the password 
# input box is shown. And the field name should be 'Passwd' 
$self->{obj_mech}->set_fields('InputPassword' =>$password); 

# The xpath of 'Sign in' button is //input[@value="Sign in"] 
$self->{obj_mech}->click({ xpath => '//button[@class="PrimaryButton"]' }); 

Ein einfaches Arbeits Skript entweder mit Festplatten-Cache oder ohne Festplatten-Cache:

#! /usr/bin/perl 

use strict; 
use warnings; 
use WWW::Mechanize::PhantomJS; 
use open ':std', ':encoding(UTF-8)'; 

#my $p = WWW::Mechanize::PhantomJS->new(phantomjs_arg=>['--ssl-protocol=any','--disk-cache=false','--max-disk-cache-size=1024'],ignore_ssl_errors=>1); 
my $p = WWW::Mechanize::PhantomJS->new(phantomjs_arg=>['--ssl-protocol=any','--disk-cache=true','--max-disk-cache-size=1024'],ignore_ssl_errors=>1); 

my $html = $p->get("https://www.gmail.com/"); 
sleep(5); 
write_html('first-page.html', $p->content); 

$p->viewport_size({width=>1366,height=>768}); 
my $form = $p->form_number(1); 

my $user_name = '*****'; 
my $password = '*****'; 

$p->set_fields('Email'=>$user_name); 
sleep(5); 

$p->click({xpath=>'//input[@value="Next"]'}); 
sleep(5); 
write_html('after-click-next.html', $p->content); 

$p->set_fields('Passwd'=>$password); 
sleep(5); 

$p->click({xpath=>'//input[@value="Sign in"]'}); 
sleep(5); 
write_html('after-login.html', $p->content); 

sub write_html { 
    my ($file, $content) = @_; 
    open my $fh, '>', $file or die; 
    print $fh $content; 
    close $fh; 
}