2

私は、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を入力したか、リンクが正しくないか、移動された可能性があります。」

フォームに間違って記入していますか？

4

1 に答える 1

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（ここは奇妙なので、ここでは正規表現を使用します）

于 2013-03-21T17:43:57.583 に答える