摘要：
最近项目中需要使用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;pri 阅读全文
