Perl版汉字批量转UTF-8编码[纯编码]

PakTC

保存脚本的时候须为utf-8格式。

1. #!/usr/bin/perl
   
2. #Code by Paktc
   
3. #2010-09
   
4. 
   
5. $lv_[1]=00000000;
   
6. $lv_[2]=11000000;
   
7. $lv_[3]=11100000;
   
8. $lv_[4]=11110000;
   
9. $lv_[5]=11111000;
   
10. $lv_[6]=11111100;
    
11. 
    
12. use utf8;
    
13. 
    
14. $a="千与千寻";
    
15. $L=length($a)-1;
    
16. for $i (0..$L) {
    
17.     $b=$i;
    
18.     printf "%s %s\n",&code2utf(ord(substr($a,$i,2)));
    
19. }
    
20. print "END!";
    
21. <STDIN>;
    
22. 
    
23. 
    
24. sub code2utf {
    
25.     my ($code,$bin,$level,$hex,$tmp,$result);
    
26.     $code=$_[0];
    
27.     $bin=sprintf "%b",$code;
    
28. 
    
29.     $level=1;
    
30.     if (length($bin)>7) {
    
31.         while (length($bin)>=6) {
    
32.             $level+=1;
    
33.             $bin=~s/.{6}$//;
    
34.             $hex=sprintf "%X",&bin2int(10 . $&);
    
35.             $result=$hex ."-". $result;
    
36.         }
    
37.     }
    
38. 
    
39.     $tmp=substr($lv_[$level],0,8-length($bin));
    
40.     $hex=sprintf "%X",&bin2int($tmp . $bin);
    
41.     $result=$hex ."-". $result;
    
42.     $result=~s/-$//;  
    
43.     $result;   #result - string
    
44. }
    
45. 
    
46. sub bin2int {
    
47.     my ($a,$str,$all,$act);
    
48.     $a=$_[0];
    
49.     $str="";
    
50.     $all=0;
    
51.     $act=0;
    
52.     do {
    
53.         $b=($a % 10) * (2**$act);  #** as ^ of the calc
    
54.         $all+=$b;
    
55.         $act+=1;
    
56.         $a=int ($a/10);
    
57.     } until ($a==0);
    
58.     int ($all);
    
59. }

复制代码

输出
E5-8D-83
E4-B8-8E
E5-8D-83
E5-AF-BB
END!