如何在Windows控制檯上利用Perl處理UTF8

Windows控制檯支持的字體很少，所以即使用

 chcp 65001

制定控制檯使用UTF8，顯示出來的字體也很難看，當Perl程序和Perl要讀取的文件都使用UTF8編碼時，怎麼辦呢？先看如下程序：

#!/usr/bin/perl

use encoding 'utf8',STDIN=>'gb2312',STDOUT=>'gb2312';

open(FILE,"c:\\test1.txt");
binmode(FILE,":encoding(utf8)");
@lines=<FILE>;
close(FILE);

for($i=0; $i<@lines; $i++){
   print $lines[$i];
   print "\n";
}

$str="你好";
print $str;

該程序用Perl去讀取一個文本文件test1.txt，然後顯示到控制檯上。關鍵在於：

 

1. use encoding 'utf8', STDIN=>'gb2312',STDOUT=>'gb2312';

   use encoding 'utf8' :指定該腳本文件的編碼格式爲utf8;
  STDIN=>'gb2312', STDOUT=>'gb2312':輸入和輸出採用GB2312字符集。

  這樣，Perl腳本中的的漢字即可被輸出。

 

2：binmode(FILE,":encoding(utf8)");

  指定打開的文件FILE的編碼格式爲utf8,這樣就能正確的讀入數據到@lines中了。

這樣就實現了Perl在Windows控制檯上處理UTF8字符了。

~~THE END~~

尹曙光