Теперь такое сообщение ->click called with undef link at hello.pl line 20
20 строка $mech->click($buttons[0]); Делали клики по <div class="target-el" style="float: left;"></div> -- Специалист IT, GNU, FLOSS, Open Source Моб: +7 (951) 131 33 90 С уважением, Кузьменко Константин Викторович 17.04.2015, 15:55, "Alexander Lourier" <[email protected]>: > Ну вроде у вас одна дива, вы хотите получить $buttons[1], её нет - вот и > undef. Может вы хотели $buttons[0]? > > On Fri, Apr 17, 2015 at 2:47 PM Кузьменко Константин <[email protected]> wrote: >> Вот такая дива <div class="uuui-stbutton" style="float: left;"></div> >> Пните для разгона >> use strict; >> use warnings; >> #use WWW::Mechanize::Firefox::Troubleshooting; >> use WWW::Mechanize::Firefox; >> use Crypt::SSLeay; >> use HTML::TagParser; >> use URI::Fetch; >> >> my $url = 'https://site.lobococ/teleport'; >> my $mech = WWW::Mechanize::Firefox->new( tab => 'current', ); >> &tevtyav; >> >> sub tevtyav { >> $mech->get($url); >> sleep 4; >> my @buttons = grep { $mech->is_visible($_) } >> $mech->xpath(q{//div[@class="uuui-stbutton"]//a}); >> $mech->click($buttons[1]); >> } >> >> Вот такое сообщение при выполнении скрипта >> ->click called with undef link at hello.pl line 20. >> (in cleanup) Can't call method "cmd" on an undefined value at >> C:/Strawbe >> rry/perl/site/lib/MozRepl/Client.pm line 186 during global destruction. >> >> стока 186 Client.pm >> my $message = [map { chomp; $_ } $self->telnet->cmd(String => $command)]; >> >> -- >> >> С уважением, >> Кузьменко Константин Викторович >> >> -- >> Moscow.pm mailing list >> [email protected] | http://moscow.pm.org > , > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
