<div dir="ltr">Ну вроде у вас одна дива, вы хотите получить $buttons[1], её нет - вот и undef. Может вы хотели $buttons[0]?<br></div><br><div class="gmail_quote">On Fri, Apr 17, 2015 at 2:47 PM Кузьменко Константин <<a href="mailto:ikkv@yandex.ru">ikkv@yandex.ru</a>> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div>Вот такая дива <div class="uuui-stbutton" style="float: left;"></div></div><div>Пните для разгона</div><div>use strict; <br>use warnings; <br>#use WWW::Mechanize::Firefox::Troubleshooting; <br>use WWW::Mechanize::Firefox; <br>use Crypt::SSLeay; <br>use HTML::TagParser; <br>use URI::Fetch; <br> <br>my $url = '<a href="https://site.lobococ/teleport" target="_blank">https://site.lobococ/teleport</a>'; <br>my $mech = WWW::Mechanize::Firefox->new( tab => 'current', ); <br>&tevtyav; <br> <br>sub tevtyav { <br>    $mech->get($url); <br>    sleep 4; <br>    my @buttons = grep { $mech->is_visible($_) } <br>                       $mech->xpath(q{//div[@class="uuui-stbutton"]//a}); <br>    $mech->click($buttons[1]); <br>} <br> </div><div>Вот такое сообщение при выполнении скрипта<br>->click called with undef link at <a href="http://hello.pl" target="_blank">hello.pl</a> line 20. <br>        (in cleanup) Can't call method "cmd" on an undefined value at C:/Strawbe <br>rry/perl/site/lib/MozRepl/Client.pm line 186 during global destruction. <br><br></div><div>стока 186 Client.pm</div><div>my $message = [map { chomp; $_ } $self->telnet->cmd(String => $command)];</div><div> </div><div>-- <br><br></div><div>С уважением,</div><div>Кузьменко Константин Викторович</div><div> </div>--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</blockquote></div>