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

CHISE / Perl/CHISE


CHISE 文字データベース(現状では XEmacs CHISE 用の Berkeley DB 版文字データベース)を Perl からアクセスするモジュールを 開発しています。 現在、CHISE.pmCHISE_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


文書・発表


[戻る]

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