perl - 表单提交后重定向使用 WWW::Mechanize (perl) 给出 404 错误

Question

我正在尝试使用 Perl 中的 Mechanize获取此站点中特定电视节目下一集的日期。

# getting episode number & date

# create a new browser
use WWW::Mechanize;
my $browser = WWW::Mechanize->new(autocheck => 0);

# fill search form, getting to tv show page
my $url= "http://next-episode.net/";
$browser->get($url);
$browser->form_name("search");
$browser->field("search", "big bang");
$browser->click();

print $browser->content();

我无法访问电视节目网页。我只得到 404 页面：“抱歉，找不到您要查找的页面！您可能输入了错误的 url，或者链接错误或移动了。”

我填错表格了吗？

Answer 1

那这个呢 ？：

my $url = "http://next-episode.net";
my $search = "big bang";

use WWW::Mechanize;
use URI::Escape;
my $browser = WWW::Mechanize->new(autocheck => 1);

my $string = uri_escape $search;
$browser->get("$url/site-search-$string.html");

print $browser->content();

如果您想知道剩余的等待天数，请添加额外的行：

print "$1 days to wait\n" if $browser->content() =~ /(\d+)\s+Day\(s\)\s+/;

（我在这里使用正则表达式，因为HTML这里很奇怪）