不能打印中文问题

hztj2005

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

hztj2005

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

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

hztj2005

我上次说的书，你还是买一本看。我尝终日而思，不如须臾之所学。

你首先要看读入文件究竟是那种编码格式，window下用记事本打开，点击另存为，在对话框最下面，编码下拉框中就可以知道当前究竟编码格式。简体中文系统下，其中的ANSI就是gb2312。另外一种就是utf-8。还有两种你现在不用关心。
如果对少数几个文件转换格式，你选定格式之后保存，就可以了，不用写代码。

要想写代码转换，先看我说的书。因为打字很麻烦，而且我是win10下面用ActivePerl，环境与你不同，交流比较麻烦。

　  以下是网上文字：
     这几天工作中用到不少字符集，Unicode、utf-8、GB2312等，但是在windows命令行里敲notepad进入文本编辑页面。保存时需要选择编码方式，但是不存在GB，却有ANSI，于是纳闷，回来一查，才恍然大悟：原来在简体中文系统下，ANSI 编码代表 GB2312 编码。
　　为使计算机支持更多语言，通常使用 0x80~0xFF 范围的 2 个字节来表示 1 个字符。比如：汉字 '中' 在中文操作系统中，使用 [0xD6,0xD0] 这两个字节存储。
　　不同的国家和地区制定了不同的标准，由此产生了 GB2312, BIG5, JIS 等各自的编码标准。这些使用 2 个字节来代表一个字符的各种汉字延伸编码方式，称为 ANSI 编码。在简体中文系统下，ANSI 编码代表 GB2312 编码，在日文操作系统下，ANSI 编码代表 JIS 编码。
　　不同 ANSI 编码之间互不兼容，当信息在国际间交流时，无法将属于两种语言的文字，存储在同一段 ANSI 编码的文本中。

hztj2005

注意下面代码要保存为ANSI格式，就可以运行了。

1. #!/usr/bin/perl
   
2. use Encode;
   
3. use warnings;
   
4. 
   
5. open (In, "<:encoding(UTF-8)","text.txt");
   
6. open (Out,">textgb2312.txt");
   
7. 
   
8. 
   
9. while (<In>){
   
10.           chomp;
    
11.           $Str = encode("gb2312",$_);
    
12.        print Out "$Str\n";
    
13. }
    
14. 
    
15. 
    
16. exit;

复制代码

hztj2005

sunzhiguolu 发表于 2016-09-18 11:13
回复 17# hztj2005
非常感谢您的帮助, 非常有用! 我将先前的代码改写了下, 代码如下:
perl test.pl text ...

1. <p>#use strict;
   
2. binmode($ARGV[0], ":encoding(UTF-8)");
   
3. binmode($ARGV[1], ":encoding(gb2312)");
   
4. while (<>) {
   
5. chomp;
   
6. print $_."\n";
   
7. }
   
8. 
   
9. exit;</p><p>
   
10. </p><p>这样可以运行。你的代码出错，也许是binmode对STDIN适用性不好。</p>

复制代码