[CHISE] [XEmacs CHISE] [Ruby/CHISE] [Perl/CHISE] [TopicMaps] [IDS] [glyph] [Visualization] [Ω]

CHISE / Perl/CHISE

CHISE 文字データベース（現状では XEmacs CHISE 用の Berkeley DB 版文字データベース）を Perl からアクセスするモジュールを 開発しています。 現在、CHISE.pm と CHISE_REG.pm の 2モジュールがあります。

CHISE.pm

NAME

CHISE

SYNOPSIS

use CHISE;
my $s1 = CHISE->define_char(strokes => 12, radical => 9);
my $s2 = CHISE->define_char(strokes => 12, radical => 9,
ideograph_daikanwa => 694);
my $c = $s1->compare($s2);
if ($c == $CHISE::EXCLUSIVE) {
print "排他的\n";
} elsif ($c == $CHISE::HAVE_INTERSECTION) {
print "共通部分あり\n";
} elsif ($c == $CHISE::PROPER_SUBSET) {
print "完全部分集合\n";
} elsif ($c == $CHISE::PROPER_SUPERSET) {
print "完全上位集合\n";
} elsif ($c == $CHISE::EQSET) {
print "完全一致\n";
}

METHOD

new(属性名=>値)

属性名とその値に対応する文字オブジェクトを生成する。 関連する他の属性も自動的に取り込まれる。

define_char(属性名=>値[, ...])

属性名とその値(の集合)を持つ文字オブジェクトを新しく生成する。

dump_attr

文字オブジェクトが持つ属性の名前と値を出力する。

add_attr(属性名=>値)

文字オブジェクトに属性名とその値を追加する。

del_attr(属性名)

文字オブジェクトから属性を削除する。

compare(オブジェクト名)

文字オブジェクトの属性どうしを比較して、その重なり具合を返す。

CHISE_REG.pm

NAME

CHISE_REG

SYNOPSIS

#!/usr/bin/perl -w
use CHISE_REG;
use utf8;

if ('山川' =~ /(.)\same_total-strokes_1/) {
  print STDERR "matched!\n";
} else {
  print STDERR "unmatched...\n";
}

TO DO

• 実装がらみ
  • libchise化
  • データベースへの書き込み
• IDSがらみ
  • decomposeメソッド
  • includeメソッド (あるオブジェクトに部品が含まれているか調べるboolean)
  • KAGEサーバとの接続
• 他のOSへの対応
  • データベースのPath(環境変数？)
  • データベースの配布方法

文書・発表

• 師茂樹 「UTF2000.pm: overview」 (CHISE14シンポジウム、ATR、2003年2月1日) HTML, OpenOffice
• 師茂樹 「Perl/CHISE による正規表現の拡張の試み ―文字素性による後方参照の実装実験と課題―」 （Linux Conference 抄録集: 第1巻 (2003年), ISSN 1348-7876）
• 師茂樹 Nグラムと文字データベースによる漢字仏教文献の分析 （『情報処理学会研究報告』Vol. 2004, No. 7 (2004-CH-61)、 2004年1月、pp. 13-18）

[戻る]

Last modified: Thu Mar 13 01:54:38 JST 2003 .