汉字比划模块

Category: MyCPAN   Keywords: 汉字 比划

从新写了下比划模块，原始数据从 Unihan 解析出来。支持两万多个汉字。:)
是 Unihan 里的 kTotalStrokes 字段。

代码：

use Lingua::Han::Stroke;
my $stroke = Lingua::Han::Stroke->new();
    
print $stroke->("我"); # 7
print $stroke->("一"); # 1

guys, enjoy!