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 "$BGSB>E*(B\n";
} elsif ($c == $CHISE::HAVE_INTERSECTION) {
print "$B6&DLItJ,$"$j(B\n";
} elsif ($c == $CHISE::PROPER_SUBSET) {
print "$B40A4ItJ,=89g(B\n";
} elsif ($c == $CHISE::PROPER_SUPERSET) {
print "$B40A4>e0L=89g(B\n";
} elsif ($c == $CHISE::EQSET) {
print "$B40A40lCW(B\n";
}
new($BB0@-L>(B=>$BCM(B)
$BB0@-L>$H$=$NCM$KBP1~$9$kJ8;z%*%V%8%'%/%H$r@8@.$9$k!#(B
$B4XO"$9$kB>$NB0@-$b<+F0E*$Kdefine_char($BB0@-L>(B=>$BCM(B[, ...])
$BB0@-L>$H$=$NCM(B($B$N=89g(B)$B$r;}$DJ8;z%*%V%8%'%/%H$r?7$7$/@8@.$9$k!#(B
dump_attr
$BJ8;z%*%V%8%'%/%H$,;}$DB0@-$NL>A0$HCM$r=PNO$9$k!#(B
add_attr($BB0@-L>(B=>$BCM(B)
$BJ8;z%*%V%8%'%/%H$KB0@-L>$H$=$NCM$rDI2C$9$k!#(B
del_attr($BB0@-L>(B)
$BJ8;z%*%V%8%'%/%H$+$iB0@-$r:o=|$9$k!#(B
compare($B%*%V%8%'%/%HL>(B)
$BJ8;z%*%V%8%'%/%H$NB0@-$I$&$7$rHf3S$7$F!"$=$N=E$J$j6q9g$rJV$9!#(B
#!/usr/bin/perl -w
use CHISE_REG;
use utf8;
if ('$B;3@n(B' =~ /(.)\same_total-strokes_1/) {
print STDERR "matched!\n";
} else {
print STDERR "unmatched...\n";
}