[分享]Perl判断脚本本身编码类型(for xp)

paktc

在XP下面记事本能够保存的编码类型就以下几种：
UTF-8，UTF-16 ，UTF-16 Big Endian ，ANSI(ASCII以内的字符时是ASCII，含汉字的时候实际是GBK编码)
写了个函数通过中文字符作自我判断 （也许没什么用处 ）

1. print recogn();
   
2. <STDIN>;
   
3. 
   
4. sub recogn {
   
5.     my $cn="中";
   
6.     my $code;
   
7.     my @arr=split("",$cn);
   
8.     if ($#arr == 0) {            # 'Unicode' 4e2d
   
9.         my $head;
   
10.         open READ,"<:raw","$0";
    
11.         read(READ,$head,2);
    
12.         close READ;
    
13.         if ($head eq "\xfe\xff") {
    
14.             $code='UTF-16BE';
    
15.         } else {
    
16.             $code='UTF-16LE';
    
17.         }
    
18.     } elsif ($#arr == 1) {       # 'GBK'   d6 d0
    
19.         $code='ANSI';
    
20.     } elsif ($#arr == 2) {       # 'UTF-8' e4 b8 ad
    
21.         $code='UTF-8';
    
22.     } else {
    
23.         $code='WHAT THE **** ?';
    
24.     }
    
25. }
    
26. 
    

复制代码

rubyish

收藏，有时间学习学习。