分类： 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
