awk解析url编码并赋值问题

nugget

需求url编码【字符】aas*2-2v%20w解析成aas*2-2v w，并赋值给str1
网上找了个url解码的例子，但是不知道怎么赋值给变量，请高手指点一下。

例子：
echo "aas*2-2v%20w" |
awk '{
str1=""
for (i=0;i<=16;i++){
  hex[sprintf("%X",i)]=i;
}
for (i=1;i<=length($0);i++)
{ c=substr($0,i,1)
if (c=="+") printf (" ");
  else if (c=="%") {
  #printf ("%c",hex[substr($0,++i,1)]*16+hex[substr($0,++i,1)]); #使用printf方法，可以正常输出转码后的字符
  str1=str1""(hex[substr($0,++i,1)]*16+hex[substr($0,++i,1)]); #这一步就出错了，如果不使用printf方法，怎么赋值？有什么好的转换方法？
}
else
  printf(c)
  str1=str1""c
}
printf "\n";
printf (str1) #验证变量赋值是否正确
printf "\n";
}'

rdcwayx

1. test.pl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use URI::Escape;
   
6. 
   
7. print uri_unescape('aas*2-2v%20w');

复制代码

1. $ perl test.pl
   
2. aas*2-2v w

复制代码

HH106

1. #!/usr/bin/env python
   
2. from urllib import unquote
   
3. str='aas*2-2v%20w'
   
4. str1=unquote(str)

复制代码

bikong0411

#!/usr/bin/env php
<?php
$str='aas*2-2v%20w';
echo urldecode($str);
              

waker

urlstr=$(echo "aas*2-2v%20w" |
awk '{
str1=""
for (i=0;i<=16;i++){
  hex[sprintf("%X",i)]=i;
}
for (i=1;i<=length($0);i++)
{ c=substr($0,i,1)
if (c=="+") printf (" ");
  else if (c=="%") {
printf ("%c",hex[substr($0,++i,1)]*16+hex[substr($0,++i,1)]); #使用printf方法，可以正常输出转码后的字符
  #str1=str1""(hex[substr($0,++i,1)]*16+hex[substr($0,++i,1)]); #这一步就出错了，如果不使用printf方法，怎么赋值？有什么好的转换方法？
}
else
  printf(c)
  str1=str1""c
}
printf "\n";
printf (str1) #验证变量赋值是否正确
printf "\n";
}')