projects
/
chise
/
perl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
change regular expression in &de_er
[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"; # 数を表示