24 六月, 2009
Javascript Like escape and unescape Functions in PERL
Posted by: asd In: Code Snippet| Perl| 程式設計
view plain
PERL:
sub escape {
my($str) = splice(@_);
$str =~ s/(\W)/sprintf('%%%02X', ord($1))/eg;
return $str;
}
sub unescape {
my($str) = splice(@_);
$str =~ s/%(..)/chr(hex($1))/eg;
return $str;
}
Tags: javascript, Perl