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++;
}

知道为什么我会收到错误消息吗？
我有use Net::Google;并且use SOAP::Lite;我已经检查了 SOAP 目录，Lite.pm 肯定在那里......谷歌一直没有帮助，所以我有点茫然。

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 回答