sample1.pl

   1 use CHISE;
   2
   3 my $s1 = CHISE->new(daikanwa => 6942); # 「字」
   4 print $s1->dumpAttr;
   5 print $s1->strokes, "\n"; # �����数を表示