还是关于中文字符的问题

sunzhiguolu

测试环境 Win7 x64, IDE gvim 代码如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Encode qw /encode decode/;
   
5. use utf8;
   
6. 
   
7. while (<DATA>){
   
8.         s/\s*\z//;
   
9.         local $_ = decode ('utf8', $_);
   
10.         next if (/[^\x{4E00}-\x{9FA5}]/ or length !=6);
    
11.         print encode ('gb2312', $_);
    
12. }
    
13. 
    
14. __DATA__
    
15. www某h某公司
    
16. www某4某某某公司.
    
17. ww某某r5[\';某*某公司/
    
18. www某某'某公司
    
19. www某-5r4645'\[;]某某某公司
    
20. www某某某;'\';[56某公司某某
    
21. www某某某rtr'\某公司某某*
    
22. www某某.'\';\][\'某\某公司某某
    
23. www某^某24'.某某公司某某
    
24. www某某@某;/][[/]][=][/;;==[].某公司某某
    
25. www某,某,某,某+*'/gf6公ytu'司某某
    
26. www某,某某;某公/'[/ytr4.>司某某
    
27. .,.\.\..fdwww某某某/.5.f某公司某某
    
28. www某某某某公[],.\4/][][\\..,\'wre司某某
    
29. www某某某某公司某某'
    
30. 某某某某公司某某
    
31. 某某某某公司
    
32. 公司某某某某
    
33. 公司某某某
    
34. 公司某某
    
35. 公司某
    
36. 某某某公司
    
37. 某某某某某公司
    
38. 某某某某某某公司
    
39. 某公司

复制代码

sunzhiguolu

执行脚本 显示如下提示:
utf8 "\xB9" does not map to Unicode at *.pl line 7, <DATA> line 1.
Cannot decode string with wide characters at C:/Perl64/lib/Encode.pm line 200, <DATA> line 1

以参数的方式读取文件就没问题, 这样就不行，为啥呀？

patagonia2

搞糊涂了，请问大圣你想要什么
哈哈，语文没学好,我的理解能力较弱,
能否将你预期的结果贴出来看下

• 输入
• 程序？ 你想要什么？ 如何？
• 输出?
  

patagonia2

大圣
比尔盖兹不会告诉你的成功秘诀

学习如何提问才能得到帮助。更容易得到答案

patagonia2

我有一本专家写的学会提问实战手册，这一本基础入门版，对初学者很实用，
有需要发给你

sunzhiguolu

回复 3# patagonia2
非常感谢大神多次出手相助，我的确在如何提问这里需要加强学习。如果您方便的话 将 《如何提问》 的手册给我发一本 谢谢。

这个问题 源自 Shell 板块，打印每条记录中只包含汉子的记录并且汉子字数正好是六个
Q: 程序的输入
A: 文件本身 __DATA__ 下面的内容作为程序的输入

Q: 执行过程
A: 删除每条记录末尾的空白字符 (包括回车，换行符); 如果记录中包含能够被 [^\x{4E00}-\x{9FA5}] 匹配 或 长度不是 6 则执行读入下一条记录; 将该条记录的编码转换为 gb2312 编码后打印输出

Q: 输出
A:
-----------------------------
某某某某公司
公司某某某某
-----------------------------

fcl21721

1. 如果你写use utf8，你的perl文件编码应该是utf8，__data__后的数据能自行识别为正确的utf8。注释掉#local $_ = decode ('utf8', $_);。

2. 或者perl文件为gbk的，注释掉#use utf8; 将local $_ = decode ('utf8', $_);改为local $_ = decode ('gbk', $_);,让系统能将gbk转为utf8.

fcl21721

1. 如果你写use utf8，你的perl文件编码应该是utf8，__data__后的数据能自行识别为正确的utf8。注释掉#local $_ = decode ('utf8', $_);。

2. 或者perl文件为gbk的，注释掉#use utf8; 将local $_ = decode ('utf8', $_);改为local $_ = decode ('gbk', $_);,让系统能将gbk转为utf8.

sunzhiguolu

回复 7# fcl21721

1. 如果你写use utf8，你的perl文件编码应该是utf8，__data__后的数据能自行识别为正确的utf8。注释掉#local $_ = decode ('utf8', $_);。

2. 或者perl文件为gbk的，注释掉#use utf8; 将local $_ = decode ('utf8', $_);改为local $_ = decode ('gbk', $_);,让系统能将gbk转为utf8.

是啊，我的 perl 文件本身的确是 utf8 编码。我注释了 local $_ = decode ('utf8', $_); 这一行代码程序的结果依然不对，还望您给出一个合理的解释。再次感谢。。。

fcl21721

回复 9# sunzhiguolu

#!/usr/bin/perl
use strict;
use warnings;
use Encode qw /encode decode/;
use utf8;

while (<DATA>{
        s/\s*\z//;
        #local $_ = decode ('gbk', $_);
        next if (/[^\x{4E00}-\x{9FA5}]/ or length !=6);
        print encode ('gb2312', $_), "\n";
}
#结果
#某某某某公司
#公司某某某某
如果代码和上面一模一样。你可以用notepad++看看编码格式。