perl能按字符读gbk编码的文件吗？

yakczh_cu

比如  文件是  e5ad.txt   (保存成gbk编码)  内容是 瀛11111

1. binmode(STDIN, ":GBK");
   
2. binmode(STDOUT, ":GBK");
   
3. binmode(STDERR, ":GBK");
   
4. my  $in_file="e5ad.txt";
   
5. open FH, '<:encoding(GBK)',  $in_file;
   
6. my $read;
   
7. while ($read = read FH, $char, 1) {
   
8. print $char;
   
9. 
   
10. printf(" -->%x",ord($char));
    
11. print "\n";
    
12. }

复制代码

期望的读出来是
瀛 --> e5ad
1  --> 31

但是显示的是瀛 -->701b

523066680

回复 1# yakczh_cu

open FH, '<:encoding(GBK)',  $in_file;

这句等于按 GBK 解码成 UNICODE （国际统一编码），
所以 ord($char) 得到的是统一码，要显示 gbk 码，需要再 encode 一次

1. use Encode;
   
2. my $in_file="e5ad.txt";
   
3. open FH, '<:encoding(GBK)',  $in_file;
   
4. my ( $char_uni, $char_gbk );
   
5. 
   
6. while ( read(FH, $char_uni, 1) )
   
7. {
   
8.     $char_gbk = encode('gbk', $char_uni);
   
9.     printf "%s -> ", $char_gbk;
   
10.     # 因为汉字GBK编码分为两个字节，所以要分别 ord 取值
    
11.     grep { printf "%x", ord($_) } split(//, $char_gbk);
    
12.     printf "\n";
    
13. }
    
14. 
    
15. close FH;
    

复制代码

1. grep { printf "%x", ord($_) } split(//, $char_gbk);

复制代码

这句也可以改为

1. $char_gbk =~s/(.)/printf "%x", ord($1)/ge;

复制代码