Perl中实现urlencode,urldecode网址编解码的优雅简易方法
url编码：$str =~ s/([^A-Za-z0-9])/sprintf(”%%%02X”, ord($1))/seg;
这样编码以后，就可以放到网址中了，如：<a ref=”page_given_string.php?str=$str”>LINK</a>
对应的url解码：$str =~ s/\%([A-Fa-f0-9]{2})/pack(’C', hex($1))/seg;
看到perl正则的强大威力了吧
url编码：$str =~ s/([^A-Za-z0-9])/sprintf(”%%%02X”, ord($1))/seg;
这样编码以后，就可以放到网址中了，如：<a ref=”page_given_string.php?str=$str”>LINK</a>
对应的url解码：$str =~ s/\%([A-Fa-f0-9]{2})/pack(’C', hex($1))/seg;
看到perl正则的强大威力了吧
04月 20th, 2009 at 18:57 #匿名
有现成的模块啊：
use URI::Escape;