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");
　　终于正确了。