06 December 2004
This post may be outdated due to it was written on 2004. The links may be broken. The code may be not working anymore. Leave comments if needed.

Update

我更新了该模块,并将它改名为 Lingua::Han::PinYin
详细的过程和用法查看:重新写就的 Lingua::Han::PinYin
下面的已经不再使用了。

说明

今天安装 Unicode::Unihan 时,在其 srctxt 目录下找到个 汉字编码与拼音对照表 / Mandarin.txt 。
另外发现在 gb2312 与 utf-8 下,汉字的编码是不相同的。
所以就重写了一遍(从函数模块转为 OO ),并把 Light 版本删除掉。
按此下载 Lingua-Han2PinYin-0.06.tar.gz

名称

Lingua::Han2PinYin - 将汉字转为它的拼音

例子

use Lingua::Han2PinYin;
  
# 如果代码的编码为 gb2312, 默认
my $h2p = new Lingua::Han2PinYin();
print $h2p->han2pinyin("我");
  
# 如果代码编码为 utf-8
my $h2p = new Lingua::Han2PinYin(format => 'utf8');
print $h2p->han2pinyin("我");

限制

不能处理多音字。

返回值

如果是一个常用字,返回它的拼音。
如果不是,返回'XX'。

应用

查询汉字的拼音:http://www.1313s.com/cgi-bin/App.cgi?q=pinyin


blog comments powered by Disqus