<div dir="ltr">А посмотрите что в @buttons попадает.<br><br></div><div class="gmail_extra"><br><div class="gmail_quote">2015-04-17 15:45 GMT+03:00 Кузьменко Константин <span dir="ltr"><<a href="mailto:ikkv@yandex.ru" target="_blank">ikkv@yandex.ru</a>></span>:<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><span class="HOEnZb"><font color="#888888"><div> </div><div>-- <br><br></div><div>С уважением,</div><div>Кузьменко Константин Викторович</div><div> </div></font></span><br>--<br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
<br></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature">С уважением,<br>Мышкин Алексей.</div>
</div>