如何在提交表单后下载WWW :: Mechanize文件？

Question

我有代码:

#!/usr/bin/perl
use strict;
use WWW::Mechanize;

my $url = 'http://divxsubtitles.net/page_subtitleinformation.php?ID=111292';
my $m = WWW::Mechanize->new(autocheck => 1);
$m->get($url);
$m->form_number(2);
$m->click();
my $response = $m->res();
print $m->response->headers->as_string;

它提交了页面上的下载按钮,但我不确定如何下载POST后发回的文件.

如果可能的话,我想用wget下载这个.我以为他们可能是秘密网址传递的东西？或者我是否必须直接从响应流中下载LWP？

那么如何下载该标题中的文件？

谢谢,

科迪古德曼

Answer 1

好吧，最让我失望的是“mechanize->form_number”子例程从 1 开始，而典型程序的索引从 0 开始。如果有人想知道如何下载响应标头或下载标头附件，这就是方法来做到这一点。

现在这是执行我想要的操作的完整代码。

#!/usr/bin/perl
use strict;
use WWW::Mechanize;

my $url = 'http://divxsubtitles.net/page_subtitleinformation.php?ID=111292';
my $m = WWW::Mechanize->new(autocheck => 1);
$m->get($url);
$m->form_number(2);
$m->click();
my $response = $m->res();
my $filename = $response->filename;

if (! open ( FOUT, ">$filename" ) ) {
    die("Could not create file: $!" );
}
print( FOUT $m->response->content() );
close( FOUT );