2007-05-09

用 perl 来进行 url encode/decode

encode:
echo "测试" |perl -p -e 's/([^\w\-\.\@])/$1 eq "\n" ? "\n":sprintf("%%%2.2x",ord($1))/eg'


decode:
echo "%e6%b5%8b%e8%af%95" |perl -p -e 's/%(..)/pack("c", hex($1))/eg'

没有评论: