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'
地振高冈,一派溪山千古秀; 门朝大海,三河合水万年流
echo "测试" |perl -p -e 's/([^\w\-\.\@])/$1 eq "\n" ? "\n":sprintf("%%%2.2x",ord($1))/eg'
echo "%e6%b5%8b%e8%af%95" |perl -p -e 's/%(..)/pack("c", hex($1))/eg'
没有评论:
发表评论