关于utf-8 代码转换问题 求解

toniz

buypro9

还是无解吗？ 伤心

toniz

什么无解，你这种求知态度我不苟同。

29楼已经给出命令行下显示中文的方法，你究竟有看没？后面给出网页上的显示，图都截取出来的。

需要这个shell支持中文

这什么什么和什么？麻烦你多看点资料再说。

ziyunfei

同表示无语

buypro9

回33楼toniz (肚腩照明月)的问题

本来来这论坛提问求教的一种是很懂的行的。一种是是比较外行的。我属于后者。我有什么术语用得不对的地方，请见谅

什么无解，你这种求知态度我不苟同。

29楼已经给出命令行下显示中文的方法，你究竟有看没？后面给出网页上的显示，图都截取出来的。

如果我没看错你的意思的话  你想告诉我29楼已经给出了解答。。。。反复看了。你引用了别人的问题
你贴出的代码也是是回答别人的问题.（命令行下显示中文的方法）
我昨天就测试过你的代码 显示出来的是汉字“中文”. 很遗憾这不是我需要的结果。




我需要的显示结果为  "& #x4E2D; 这样的格式。  就是"& #x hexnum;"这样的格式。
将汉字 “中文”转化为  "& #x4E2D;& #x6587";   转化的结果和http://tool.chinaz.com/Tools/UTF-8.aspx 的一样

zhlong8

回33楼toniz (肚腩照明月)的问题

本来来这论坛提问求教的一种是很懂的行的。一种是是比较外行的。我属于 ...
buypro9 发表于 2011-01-20 22:08

    那个网站无非就做个转码的工作， GBK->unicode

1. c:\> perl -MEncode -e "printf '&#x%X;', ord decode('GBK', '中')

复制代码

29楼的确已经说完了，的确是因为你不理解字符编码问题。 ord 只能处理一个字符，应该在 win 下命令行执行 '中' 的编码才是GBK

ziyunfei

怎么编码14楼不是回答过了吗。
我上传我的脚本。你看看
a.rar (290 Bytes, 下载次数: 16)

2011-01-21 09:23 上传

点击文件名下载附件

toniz

其实，就是楼主不知道我们在和他说什么。

buypro9

谢谢楼上的两位。

现在总算搞明白了。回头再看贴理解了不少

但是是因为测试14楼的脚本的时候出错了。没理解ziyunfei (紫云飞) 老大的提示。

toniz

算了  好人做到底。
下面的CGI可以帮你学习，你从你的HTML那边传递参数过来CGI这边，这个参数的中文编码是和你浏览器选择的编码有关。

1. #!/usr/bin/perl -w
   
2. use CGI;
   
3. use HTML::Entities;
   
4. use utf8;
   
5. use Encode;
   
6. $query = new CGI;
   
7. 
   
8. $secretword = $query->param('word');
   
9. $remotehost = $query->remote_host();
   
10. 
    
11. my $a = $secretword;
    
12. $a = decode_entities($a);
    
13. 
    
14. print $query->header(  -charset=>'utf-8' );  
    
15. 
    
16. print $a."-------------";
    
17. print unpack("H*",$a)."<br>";
    
18. print decode("gb2312",$a)."-------------";
    
19. print unpack("H*",decode("gb2312",$a))."<br>";
    
20. print encode("utf-8",decode("gb2312",$a))."-------------";
    
21. print unpack("U*",encode("utf-8",decode("gb2312",$a)))."<br>";
    
22. map {print "&#x",sprintf("%x",$_)}unpack ("U*",decode ("gb2312",$a));
    

复制代码

输入一个‘山’，如果CGI显示：

?-------------c9bd
山-------------e5b1b1
山-------------229
&#x5c71

表示你的浏览器目前使用的编码是GB2312

如果是：

山-------------e5b1b1
灞-------------e7819e
灞-------------231
&#x705e

这个则你HTML传过来的是UTF-8

那么可以用这个代码：

1. #!/usr/bin/perl -w
   
2. use CGI;
   
3. use HTML::Entities;
   
4. use utf8;
   
5. use Encode;
   
6. $query = new CGI;
   
7. 
   
8. $secretword = $query->param('word');
   
9. $remotehost = $query->remote_host();
   
10. 
    
11. my $a = $secretword;
    
12. $a = decode_entities($a);
    
13. 
    
14. print $query->header(  -charset=>'utf-8' );  
    
15. 
    
16. 
    
17. print $a."-------------";
    
18. print unpack("H*",$a)."<br>";
    
19. print decode("utf-8",$a)."-------------";
    
20. print unpack("H*",decode("utf-8",$a))."<br>";
    
21. print encode("gb2312",decode("utf-8",$a))."-------------";
    
22. print unpack("H*",encode("gb2312",decode("utf-8",$a)))."<br>";
    
23. map {print "&#x",sprintf("%x",$_)}unpack ("U*",decode ("utf-8",$a));
    
24. 
    
25. 
    

复制代码

将显示：

山-------------e5b1b1
山-------------e5b1b1
?-------------c9bd
&#x5c71