分类: PERL
2013-04-17 14:36:34
Encode:
perl -p -e 's/([^\w\-\.\@])/$1 eq "\n" ? "\n":sprintf("%%%2.2x",ord($1))/eg' filename
Decode:
perl -p -e 's/%(..)/pack("c", hex($1))/eg' filename
必要时转一下码: perl -p -e 's/%(..)/pack("c", hex($1))/eg' filename | iconv -f utf-8 -t gb18030