论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2009-12-13 00:15 |只看该作者 |倒序浏览

use strict;
use warnings;
use WWW::Mechanize;
my $fh;
my $absolute="http://cacti.com/";
open FH,"id.txt"
or die "can not open $!n";
my $filename = "dump.txt";
my $cacti = "http://cacti.com/";
my $mech = WWW::Mechanize->new();
$mech->get( $cacti );
$mech->set_visible("test",'123');
$mech->click;
#以上是登陆部分
print $mech->status();
foreach  (<FH>) {
chomp;
my $myurl;
$myurl="http://cacti.com/graph_view.php?action=preview&host_id=$_&graph_template_id=27&filter=";
$mech->get($myurl); #打开查询页面
$mech->form_name( "form_timespan_selector" );  #选择form
$mech->select('predefined_timespan', '11'); #更改表单内容
   $mech->click_button( name=>'button_refresh'); #点击刷新按钮
   $mech->reload();
$mech->dump_images( $fh, $absolute);

我是想用这个模块来模拟IE的动作，自动获取cacti的图像。
$mech->click_button( name=>'button_refresh');
用这个点击刷新按钮后应该将统计时间改为一周，可以dump出来的图片还是默认当天的
用reload重新刷新页面也不行。

捣鼓了一晚上了。杯具啊

[ 本帖最后由 yz86yz 于 2009-12-13 00:18 编辑 ]