perl url encode url decode

最近项目中需要使用perl 的url encode和decode功能。

以前一直使用正则表达式的版本， 当然也是从别的地方弄过来的。

结果里面一个严重的bug， 害我不浅啊。

 

sub my_encode

{

        my $str = shift;

        $str =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($str))/seg;

        return $str;

}

print &my_encode("2%3A1"); 

这个出来的结果是：2%323A1, 期望的结果是：  2%253A1

 

回归到最原始， use URI::Escape; 

print &uri_escape("2%3A1"); 

终于正确了。