WWW::Google::Calc つくった。

Google で検索するときに「1 + 1」とか「$100 in yen」とか「3フィートをメートルで」とかのやつ

ソースコードは、GitHubに置いておきます。

使い方は超かんたん。

モジュールのインストール

$ git clone git://github.com/eru/WWW-Google-Calc.git
$ cd WWW-Google-Calc
$ perl Makefile.PL
$ make
$ make test
$ sudo make install

サンプル

use strict;
use warnings;
use WWW::Google::Calc;
use Encode;

my $cal = WWW::Google::Calc->new(lang => 'ja');

print encode('utf-8', $cal->calc('$100 in yen')) . "\n";
print encode('utf-8', $cal->calc('3フィートをメートルで')) . "\n";

if($cal->calc("not numerical expression")) {
print "true\n";
} else {
print "false\n";
}

実行結果

$ perl sample.pl
US$ 100 = 7 702.97335 円
3フィート = 0.9144 メートル
false

こんな感じで使えます。