拼音的声调表示

sunnavy
2010-09-11 12:39:11 +0000

前几天写文章的时候突然发现不能很方便地输入拼音的声调,所以写了个小模块来干这件事。

用法很简单,下面是一个输出拼音的例子:

 use encoding 'utf8';
 use Lingua::Han::CanonicalPinYin 'canonicalize_pinyin';
 print canonicalize_pinyin( $_ ), "\n" for @ARGV;

如果输入"wen1", 就会输出"wēn",同理还可以输出"wén"(wen2),"wěn"(wen3)和"wèn"(wen4)

App::moduleshere

sunnavy
2010-04-23 21:26:25 +0000

used to copy module files(.pm) in @INC to current working directory or somewhere.

it's on CPAN