表单提交后的重定向使用WWW::Mechanize(perl)产生404错误

表单提交后的重定向使用WWW::Mechanize(perl)产生404错误,perl,parsing,www-mechanize,Perl,Parsing,Www Mechanize,我正在使用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

我正在使用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,或者链接错误或被移动。”

我填错表格了吗?

这个怎么办

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
这里很奇怪)

ofc“bigbang”最终将成为一个变量。atm我使用“大爆炸”只是作为参考,因为手动搜索可以让我找到正确的页面。查看页面,看起来表单通常运行javascript,而不是提交表单。(Mechanize不做JS)太好了!它比我写的要好得多(也短得多):-)不需要cookies,删除。感谢您的支持/如果答案符合您的需要,请接受