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

Question

基于AJAX Search 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::Search和 REST::Google来自 CPAN 的结果对我不起作用 - 与手动测试相比，他们返回的结果更少或没有。

最终我使用 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" }