表单提交后的重定向使用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页面:"对不起，您正在寻找的页面无法找到!"你可能输入了一个错误的网址，或者它可能被错误地链接或移动。"

我填错表格了吗?

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 waitn" if $browser->content() =~ /(d+)s+Day(s)s+/;

(这里我使用正则表达式，因为HTML是奇数)