如何使用perl下載使用點擊方法的文件？

Question

我想用機械化模塊點擊方法， 從網站 http://www.ncdex.com/MarketDataAction_bhavCopy.action

下載XLS文件，但它給錯誤，如：

發佈信息時出錯http://www.ncdex.com/MarketDataAction_bhavCopySubmit.action：不是click_method.pl線找到6

這裏是我的代碼：

use WWW::Mechanize; 
my $mech = WWW::Mechanize->new(); 
my $url = 'http://www.ncdex.com/MarketDataAction_bhavCopy.action'; 
$mech->get($url); 
$mech->submit_form(
       fields  => { 
         'dateSelected' => '13/03/2017', 
       } 
     ); 
$mech->click_button(
       name => "buttonType", 
       id => "buttonType", 
       value => "xls Format", 
       type => "submit" 
     ); 

print $mech->content(); 

我想從這個網站下載xls文件的日期13/03/2017年或任何其他日期

Answer 1

直接打網址如下，寫數據到.xls文件

use WWW::Mechanize; 
my $mech = WWW::Mechanize->new(autocheck => 0); 
$mech->get("http://www.ncdex.com/MarketDataAction_bhavCopySubmit.action?bhavTitle=bhav&dateSelected=13%2F03%2F2017&buttonType=xls+Format"); 
my $data = $mech->content; 
print $data; 

您可以通過運行它，並重定向輸出到.xls文件 如檢查代碼： - perl test.pl> output.xls