perlでGoogle検索

これまでブログに記載した内容で、perlによるInternet Explorerの起動、もしくは、起動中のInternet Explorerをperlの制御下にすることができる。今回は、実際のその技を使用して、ブラウザを制御してみる。
とりあえず以下のスクリプトをコピーし、utf-8で保存後、perlで起動してほしい。

#!/usr/bin/perl
use utf8;
use Encode;
use Win32::OLE;

#Internet Explorerを起動
$ie=Win32::OLE->new('InternetExplorer.Application') or die Win32::OLE->LastError;

#Internet Explorerを見えるようにする
$ie->{Visible}=1;

#Google を表示
$ie->Navigate("http://www.google.co.jp");
#表示待ち
while($ie->{ReadyState}!=4 || $ie->{Busy}){
    sleep(1);
}

#検索キーワード入力 ※うまくいかない場合はidを「q」「lst-ib」に変更してネ
$ie->document->getElementById("q")->{value}=encode("cp932","ガリガリ君");

#「Google 検索」ボタン押下
$ie->document->getElementById("btnG")->click();

上記は、IE起動し、Googleで「ガリガリ君」を検索するスクリプトだ。みてもわかるように、こんなに簡単に、Google検索アプリが作成できる。JavaScriptを知っている人は、察していると思うが、記載方法は若干異なるものの、HTML内のオブジェクト操作は、JavaScriptのそれと同じである。つまり、JavaScriptで可能なブラウザ操作は、perlでも可能ということだ。今後は引き続きperlでどこまでブラウザを制御できるか探ってみたい。

初めてのPerl 第5版

• 作者: Randal L. Schwartz
• 出版社/メーカー: オライリージャパン
• 発売日: 2009/10/26
• メディア: 大型本

パーフェクトJavaScript (PERFECT SERIES 4)

• 作者: 井上 誠一郎
• 出版社/メーカー: 技術評論社
• 発売日: 2011/09/23
• メディア: 大型本