不能打印中文问题

sunzhiguolu

示例代码如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. 
   
6. binmode (STDIN, ":utf8");
   
7. binmode (STDOUT, ":utf8");
   
8. 
   
9. my %hDate;
   
10. while (<>){
    
11.     chomp;
    
12.     if (@ARGV){
    
13.         $hDate{$_} = 1;
    
14.         next;
    
15.     }
    
16.     my ($name, $dt, $qty) = split (/\|/);
    
17.     print join ("|", $name, $dt, $hDate{$dt} ? $qty : "缺勤"), "\n";
    
18. }
    

复制代码

file -i abc.pl a b
------------------------------------------
abc.pl: text/plain; charset=utf-8
a:       text/plain; charset=utf-8
b:       text/plain; charset=us-ascii

控制台 Options | Text | Locale => zh_CN, Character Set => UTF8

执行的输出结果不对:

å¼ ä¸|2014-12-15|69
å¼ ä¸|2014-12-12|54
å¼ ä¸|2014-12-11|84
å¼ ä¸|2014-12-10|03
å¼ ä¸|2014-12-09|40
å¼ ä¸|2014-12-08|07
å¼ ä¸|2014-12-05|96
å¼ ä¸|2014-12-04|48
å¼ ä¸|2014-12-03|25
å¼ ä¸|2014-12-02|84
å¼ ä¸|2014-12-01|94

hztj2005

《实战Perl——语言信息处理利器》142页。

sunzhiguolu

解决了,
控制台:Locale => C, Character Set => UTF8
在 ~/.vimrc 中添加一项
:set fileencodings=utf-8,ucs-bom,gbk

sunzhiguolu

回复 2# hztj2005

谢谢大神帮助, 已经解决了. 解决方法贴了出来, 供其他小伙伴参考.
您说的那本书, 我没看过, 有时间一定拜读.

sunzhiguolu

回复 2# hztj2005
大神 能否提供一个下载链接? 好像没找到啊 先谢了!!!

hztj2005

sunzhiguolu 发表于 2016-09-07 19:50
回复 2# hztj2005
大神 能否提供一个下载链接? 好像没找到啊 先谢了!!!

我看的纸本。
这个书整体不怎么样，不过处理中文，涉及字符集转换这方面，此书有几个可以运行的代码，直接拿来用倒是可以的。

sunzhiguolu

回复 6# hztj2005
还是看纸版的书 效果比较理想 扫描版的书籍 有的看的不是很清楚.

104359176

1. if (ord("中") == 20013) {
   
2.     say "Your encode is Utf-8";
   
3. }

复制代码

sunzhiguolu

回复 8# 104359176
大神, 您提供的那个方法 我这里没有显示结果.
但是可以正确显示 格式为 UTF8 编码的文本, 可能什么地方配置还是不正确.

104359176

我尽量不用中文写注释，不知道什么时候就成乱码了。
编辑器只用 VIM, 已经好几年遇不到乱码的问题了。