perl 匹配替换内容，MD5密码
批量解了几十个MD5密码好，MD5会员的钱都没了 好心痛 http://blog.51cto.com/n3tl04d/editor/icons/etc_06.gif 需要把原来的MD5密码去掉，只需要解密后的结果，aaaaaaaa 3c9bea7e6ca8e287f1d8e0080a647cf3 tkfkdgo
bbbbbbbb 96e79218965eb72c92a549dd5a330112 111111
ccccccccc ed61f46454360f46da9a7992b4ccc00d p4KsXw
ddddddddd 1542fd59146303ba88cfe694bc7064cc lee9531
eeeeeeeee e1711a22fe493965a43a3563417a2a0b 182100
处理后如下：
aaaaaaaa tkfkdgo
bbbbbbbb 111111
ccccccccc p4KsXw
ddddddddd lee9531
eeeeeeeee 182100
如果很多，不可能一个个去删除，所以用PERL实现一下，代码如下：
#/usr/bin/perl #Codz By N3tl04D 2009-10-28
#Useage: replace.pl inputfile outputfile
#
open(RES,">>$ARGV");
while ()
{
s/([\w]{32})//sg;#把32位的MD5删除
print RES $_;
}
close(RES);
其实也可以用一句就搞定perl -p -e s/([\w]{32})//sg ok4.txt，这是直接输入处理后的结果。
页:
[1]