中文-拼音
发表于 : 2008-11-04 14:33
代码: 全选
cpan Lingua::Han::PinYin Lingua::Han::Utils
☎ 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