将url中的编码转换成汉字的问题

daniel_kohler

val="submitbtn=%CC%E1%BD%BB%C1%D0%B1%EDpara_area1=%C4%CF%BE%A9para_ip1=10.121.1.97"

printf -v val "%b" "${val//\%/\\x}."

上面的语句可以将ASCII码转化成汉字， val 是一个变量，还有没有其它的方法实现上面的语句呢？

主要是我板子上的busybox的printf没有 -v 参数，不知道该怎么解决，所以想换一种方法。

[ 本帖最后由 daniel_kohler 于 2010-1-22 12:34 编辑 ]

nigelrax

${val/#\%/\\x}

daniel_kohler

原帖由 nigelrax 于 2010-1-22 10:36 发表
${val/#\%/\\x}

-sh-2.05b#
-sh-2.05b# val="submitbtn=%CC%E1%BD%BB%C1%D0%B1%ED&para_area1=%C4%CF%BE%A9&para_ip1=10.121.1.97"
-sh-2.05b# echo $val
submitbtn=%CC%E1%BD%BB%C1%D0%B1%ED&para_area1=%C4%CF%BE%A9&para_ip1=10.121.1.97
-sh-2.05b# val=${val/#\%/\\x}
-sh-2.05b# echo $val         
submitbtn=%CC%E1%BD%BB%C1%D0%B1%ED&para_area1=%C4%CF%BE%A9&para_ip1=10.121.1.97
-sh-2.05b#

daniel_kohler

其实就是将html通过boa传递给cgi的url转换为汉字，这个大家明白不？

daniel_kohler

自问自答：
本来是很简单的一句，没想到要用这么长的语句替换。

1. 
   
2. echo "adsfkjladsjf%E0%E0" | awk '
   
3. BEGIN {
   
4.         hextab="0123456789ABCDEF"
   
5.         for ( i=1; i<=255; ++i ) ord [i] = sprintf("%c",i);
   
6. }
   
7. {
   
8.         decoded = ""
   
9.         for ( i=1; i<=length ($0); ++i ) {
   
10.                 c = substr ($0, i, 1)
    
11.                 if ( c ~ /[a-zA-Z0-9.-]/ ) {
    
12.                         decoded = decoded c # safe character
    
13.                 }
    
14.                 else if ( c == " " ) {
    
15.                         decoded = decoded "+" # special handling
    
16.                 } else if ( c == "%" ) {
    
17.                         hi= substr($0,i+1,1);
    
18.                         low=substr($0,i+2,1);
    
19.                         i++;i++
    
20.                         decoded = decoded ord[(index(hextab,hi)-1)*16+index(hextab,low)-1]
    
21.                 }
    
22.         }
    
23. }
    
24. END{print decoded}

复制代码

[ 本帖最后由 daniel_kohler 于 2010-1-22 13:13 编辑 ]

lululau

1. 
   
2. 1#!/usr/bin/perl                                                                                                                                                
   
3. 2use utf8;                                                                                                                                                      
   
4. 3use Encode qw(decode);                                                                                                                                         
   
5. 4binmode STDOUT, ":encoding(encoding_of_your_environment)";                                                                                                                             
   
6. 5$str = "%CC%E1%BD%BB%C1%D0%B1%ED";                                                                                                                             
   
7. 6                                                                                                                                                               
   
8. 7push @octets, hex for $str =~ /%(..)/g;                                                                                                                        
   
9. 8$octets = pack "c*", @octets;                                                                                                                                 
   
10. 9print decode "gbk", $octets;
    

复制代码

daniel_kohler

谢谢你提供的方法，但我对perl不熟，最初只是想替换一个语句而已。

Shell_HAT

waker斑竹的方案如何？
http://bbs.chinaunix.net/thread-982743-1-1.html

daniel_kohler

原帖由 Shell_HAT 于 2010-1-25 11:56 发表
waker斑竹的方案如何？
http://bbs.chinaunix.net/thread-982743-1-1.html

谢了

看了一下，有些情况解析的不正确，要自己自己修改一下。

例如 %5A