最近项目中需要使用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");
终于正确了。