如何使用Perl的單擊方法下載文件？

Question

我正在嘗試從網站http://www.ncdex.com/MarketDataAction_bhavCopy.action下載xls文件

使用Mechanize模塊的click方法，但是會出現如下錯誤：

錯誤發布POST 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();

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

Answer 1

如下所示直接命中url並將數據寫入.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