如何使用 perl 使用单击方法下载文件？

Question

我正在尝试从网站下载 xls 文件 http://www.ncdex.com/MarketDataAction_bhavCopy.action

使用 Mechanize 模块点击方法，但它会给出如下错误：

发布错误 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

如何使用 perl 使用单击方法下载文件？

how can i download file using click method using perl?

perl

www-mechanize