クジラ机ブログ

2008/11/01/ATOKのAPIでPerl電卓を作った

ATOKダイレクトAPI for Perl/Rubyで、Perl電卓を作ってみました。
Perl や ATOK をインストールするのに時間がかかりましたが、スクリプトの作成時間は、15分以下でできました。

• ダウンロード:
• http://aoikujira.com/temp/pri/20081101G8OOi-perl_eval_setu..

上記からダウンロード＋インストールして、ATOKで式を小文字で入力して、[Ctrl+Insert]のキーを押すと、変換を行います。

Perl 版は以下のような感じです。

package Atok_plugin;

use strict;
use utf8;

sub run_process
{
  my( $a_request_data ) = @_;
  my %result_data;
  my @candidate_array;
  my $res;
  my $query;
  # eval
  $query = $a_request_data->{ 'composition_string' };
  $res = eval($query);
  if ($res == undef) {
    push(@candidate_array,{
      'hyoki'  => "エラー:'$query'",
      'comment'=> $@ });
  }
  else {
    push(@candidate_array,{
      'hyoki'  => $res,
      'comment'=> $query });
  }
  $result_data{ 'candidate' } = \@candidate_array;
  return( %result_data );
}
1;

ATOKを電卓代わりにできてとても楽しいです。また、プラグインのセットの中に、スクリプトのデバッガーが入っていてとても親切です。

※はじめ、Active Perl ですが、適当にダウンロードして、インストールしたら、5.8.0 だったらしく、utf8 関連がうまく動かず、サンプルが動きませんでした。指示通りのバージョンをインストールすることをお勧めします。

※ちなみに、参考にしたのは、secondlifeさんのRuby電卓です。