中文－拼音

[eexpress]

代码： 全选

cpan Lingua::Han::PinYin Lingua::Han::Utils

其中。Pinyin模块，有一个目录没建立。就是那 /usr/share/perl5/Lingua/Han/PinYin
☎ l /usr/share/perl5/Lingua/Han/PinYin
Mandarin.dat
手动搞定吧。

代码： 全选

~/应用/脚本  ☎ cat han-pinyin.pl 
#!/usr/bin/perl -w
use strict;
use Lingua::Han::PinYin;

my $h2p = new Lingua::Han::PinYin();

foreach ($ARGV[0]) {
my @result = $h2p->han2pinyin("$_");
print "$_ : @result\n";
}
☎ han-pinyin.pl 管理全部评论
管理全部评论 : guan li quan bu ping lun

[c\nc]

我一直以为有规律，看来不是，那个 Mandarin.dat 有 300 多K，25478 行数据。

[HuntXu]

能拼音-中文就牛了，用来看懂一些难看的拼音帖...

[xiooli]

多音字呢？

[c\nc]

能拼音-中文就牛了，用来看懂一些难看的拼音帖...

有啊，scim、fcitx、ibus