perl中对于宽字符的处理

zhao_yi707

需要写程序抓取一个网页，网页是utf8，抓取下来需要用gbk打印。但是遇到特殊字符（宽字符）总是退出，其他正常。
from_to($title, 'utf8', 'gbk');

报错：
Cannot decode string with wide characters at d:/test/Perl/lib/Encode.pm line 196.

比如遇到类似于内容时候：“**”


from_to函数的第三个参与可以带上CHECK，但是好像无效，比如用FB_DEFAULT（“默认值，不能转换的字符使用其他符号(?)替换”），当程序执行到这里的时候依然退出。


可以的解决方案：从编码上进行处理，或者如何用正则把宽字符一类的替换掉也可以？这个正则如何写呢？


请大家帮忙看下，谢谢。

• 
  

523066680

我这里测试 encode 没提示出错啊，只是把 wide character 变成了问号

1. use utf8;
   
2. use Encode;
   
3. my $a = "**";
   
4. print encode('gbk', $a);
   

复制代码

输出：
**?

hztj2005

贴整个代码出来看看。