[Moscow.pm] Непослушная Дива

[Кузьменко Константин]

Добрый день Moscow.pm

Вот тренировался на этой кошке;)

#!/usr/bin/perl
use strict;
use warnings;
use WWW::Mechanize::Firefox;

my $mech = WWW::Mechanize::Firefox->new();
$mech->get('http://www.youtube.com/');
sleep 10;
$mech->click({ xpath => '//button[@id="google-help"]' });
sleep 10;

Понял как!!!

Но есть такая ДИВА - 
<div unselectable="on" class="z-grd8-cell-inner z-grd8-col-54">00-11-22-33-44-55-7777777</div>
как сделать два клика по обьекту "00-11-22-33-44-55-7777777"

-- 
Специалист IT, GNU, FLOSS, Open Source
Моб: +7 (951) 131 33 90
С уважением,
Кузьменко Константин Викторович


17.04.2015, 16:25, "Кузьменко Константин" <ikkv на yandex.ru>:
> Теперь такое сообщение
> ->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" <aml на rulezz.ru>:
>>  Ну вроде у вас одна дива, вы хотите получить $buttons[1], её нет - вот и undef. Может вы хотели $buttons[0]?
>>
>>  On Fri, Apr 17, 2015 at 2:47 PM Кузьменко Константин <ikkv на yandex.ru> 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
>>>  moscow-pm на pm.org | http://moscow.pm.org
>>  ,
>>
>>  --
>>  Moscow.pm mailing list
>>  moscow-pm на pm.org | http://moscow.pm.org
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org