- 論壇徽章:
- 0
|
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'); #更改表單內(nèi)容
$mech->click_button( name=>'button_refresh'); #點(diǎn)擊刷新按鈕
$mech->reload();
$mech->dump_images( $fh, $absolute);
|
我是想用這個模塊來模擬IE的動作，自動獲取cacti的圖像。
$mech->click_button( name=>'button_refresh');
用這個點(diǎn)擊刷新按鈕后應(yīng)該將統(tǒng)計時間改為一周，可以dump出來的圖片還是默認(rèn)當(dāng)天的
用reload重新刷新頁面也不行。
搗鼓了一晚上了。杯具啊
[ 本帖最后由 yz86yz 于 2009-12-13 00:18 編輯 ] |
|
免費(fèi)注冊
發(fā)表于 2009-12-13 00:15
