Google::Search

概要

Google AJAX Search API を Perl から使えるようにしたラッパーモジュール。
CPAN からインストールできます。

使用方法

以下のような感じ。

 use Google::Search;
 
 my $search = Google::Search->Web( query => "Lightly and Leniently", hl => 'ja' );
 while ( my $result = $search->next ) {
    print join(' ', $result->rank, $result->titleNoFormatting, $result->uri), "\n";
 }

実行結果。

 0 Lightly and Leniently - http://lightly.wjg.jp/
 1 Lightly and Leniently - ぷち日記 - 2011年8月23日の日記 http://lightly.wjg.jp/diary
 2 Lightly and Leniently 掲示板 http://lightly.wjg.jp/bbs/1
 3 Lightly and Leniently - 駅データ - 概要 http://lightly.wjg.jp/station

※補足

Googleの方でAPIの使用頻度の制限を設けているようで、何回か実行すると正常に検索できなかったり、検索結果数が少なくなったりする。
現状の検索結果の最大数は 64 の模様。