Вот такая дива <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 = '';
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]);
}
use warnings;
#use WWW::Mechanize::Firefox::Troubleshooting;
use WWW::Mechanize::Firefox;
use Crypt::SSLeay;
use HTML::TagParser;
use URI::Fetch;
my $url = '';
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.
->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
