1

私は、私と私の友人が IRC で使用するための単純なボットを作成しているだけです。このモジュールを見つけましたが、何らかの理由で、例に従っているにもかかわらず、実際に検索することはできません。
モジュールはここで見ることができます。
私のコードが基づいている例は、ここで見ることができます。

私が知る限り、私は間違いを犯していません。

デバッグをオンにすると、この出力が表示されます (デバッグがオンの最後の行のみを取得します)。

<p><b>404.</b> <ins>Thatâs an error.</ins>
<p>The requested URL <code>/search/beta2</code> was not found on this server.
<ins>Thatâs all we know.</ins>
404 Not Found at /usr/lib/perl5/vendor_perl/5.8.8/SOAP/Lite.pm line 3720

私のコード;

$msg =~ s/^google//g; # Get query
my $google = Net::Google->new(key => GOOGLE_API_KEY, debug => 1); # Create search instance
my $search = $google->search(); # Build query
$search->query($msg);
$search->starts_at(0);
$search->max_results(100);
$search->filter(0);

$search->results(); # Search google
my $random = int(rand(100));
my $count = 0;

foreach my $result ( @{$search->results()})
{
    if ($count == $random)
    {
        $irc->yield(privmsg => CHANNEL, $result->title() || "No Title");
        $irc->yield(privmsg => CHANNEL, $result->URL());
    }
    $count++;
}

エラーメッセージが表示される理由は何ですか?
SOAP ディレクトリを確認しました。Lite.pmは間違いなくそこにuse Net::Google;ありuse SOAP::Lite;ます...Google は役に立たなかったので、少し困っています。

4

1 に答える 1

1 
use Google::Search;
my $search = Google::Search->Web( query => "rock" );
while ( my $result = $search->next ) 
{
    print $result->rank, " ", $result->uri, " ",$result->title."\n";
}
于 2012-05-02T07:25:39.650 に答える