[请教]关于GB扩展字符的GB->utf-8转化

Osment

最近想把网站上的所有的内容编码由 gb -> utf-8。
本来是个简单的问题，写了以下 Perl 片段 就基本完成想法

1. 
   
2. 
   
3. use Encode qw/from_to/;
   
4.         # 开始当前文件
   
5.          print '<ul><li>开始转换'.$mydir.'/'.$name.'....</li>';
   
6.           open(FH, $mydir.'/'.$name);
   
7.           my @data = <FH>;
   
8.         close(FH);
   
9.         my $data = join("", @data);
   
10.         if ($data =~ /charset\=gb2312/) { $data =~ s/charset\=gb2312/charset\=utf-8/s; }
    
11.         from_to($data, "gb2312", "utf8");
    
12.         open(FH, ">$outdir/$name");
    
13.         print FH $data;
    
14.         close(FH);
    
15.         print '<li>'.$outdir.'/'.$name.'convert success!</li></ul>';
    
16.       # 结束
    

复制代码

然而，发现原来网页中有部分GB编码的“繁体字”，比如“幫助，瞭解”等，这些字为GB扩展字符，这些用Encode模块   from_to($data, "gb2312", "utf8"); 转化后变成了乱码。
请教大家有什么好的办法来转化他们成为utf-8正常显示的字符？

flw

gb2312 就 gb2312，gbk 就 gbk，gb18030 就 gb18030，什么叫“gb扩展字符”啊？

Osment

测试过
<code>from_to($data, "gb18030", "utf8");</code>
但是显示错误 <code>Unknown encoding 'gb18030' at G:/www/cgi-bin/utf.cgi line 51</code>

Osment

原帖由 flw 于 2007-6-26 14:43 发表
gb2312 就 gb2312，gbk 就 gbk，gb18030 就 gb18030，什么叫“gb扩展字符”啊？

我表达的不是很清楚，就是这个意思。 gbk吧：）

记得 gbk就是“国标扩”的拼音缩写吧。

[ 本帖最后由 Osment 于 2007-6-26 14:49 编辑 ]

Osment

问题解决了。
是我脑筋转不过来弯了。。

想到 gb8030 想不到 gbk

看了看 Encode模块的定义。
使用

1. from_to($data, "gbk", "utf8");

复制代码

就 OK 了。