18 November 2005
This post may be outdated due to it was written on 2005. The links may be broken. The code may be not working anymore. Leave comments if needed.
从新写了下比划模块,原始数据从 Unihan 解析出来。支持两万多个汉字。:)
是 Unihan 里的 kTotalStrokes 字段。


use Lingua::Han::Stroke;
my $stroke = Lingua::Han::Stroke->new();

print $stroke->("我"); # 7
print $stroke->("一"); # 1
guys, enjoy!

blog comments powered by Disqus