xmuyong的ChinaUnix博客xmuyong.blog.chinaunix.net
xmuyong
全部博文(30)
2014年(3)
2013年(16)
2012年(11)
zds05
wangqin0
tlzybzwq
PP跌疼
路霸
rockey12
king_lop
mclhyang
fine102
分类: PERL
2013-07-11 11:54:44
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 -- sort函数 [hash按照value排序]
下一篇:ctrl + R 搜索历史命令
登录 注册