如何使用 Perl 的 Google::Search 查找特定 URL？

Question

基于 AJAX 搜索 API 的 Google::Search 模块似乎不太好用，还是只有我一个？

比如我用firefox在google上搜索：http : //bloggingheads.tv/forum/member.php?u=12129

它带来了结果。

但是当我以这种方式使用模块时：

$google_search = Google::Search->Web ( q => "http://bloggingheads.tv/forum/member.php?u=12129" );
@result =  $google_search->all;

我在数组中什么也没有。

任何的想法？

似乎这个 API 没有像手动搜索那样带来相同的结果，我错过了什么吗？

Answer 1

我在西里尔语查询中也遇到了类似的问题。Google::SearchCPAN和CPAN都REST::Google对我不起作用 - 与手动测试相比，他们返回的结果较少或没有结果。

WWW::Mechanize最终我使用和编写了一个抓取模块HTML::TreeBuilder。

这是获取结果统计信息的示例：

my $tree = HTML::TreeBuilder->new_from_content($content);

if (my $div = $tree->look_down(_tag => 'div', id => 'resultStats')) {
    my $stats = $div->as_text();
}
else { warn "no stats" }