projects / chise / perl.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
fix bug in &de_er(). treat $value as decimal explicitly in case of daikanwa and gt.
[chise/perl.git] / sample1.pl
1 # sample1.pl
2 # $Id: sample1.pl,v 1.3 2003-10-08 13:30:29 moro Exp $
3
4 use CHISE;
5
6 my $s1 = CHISE->new(daikanwa => 6942); # 「字」
7 print $s1->dumpAttr;
8 print $s1->strokes, "\n"; # 数を表示