perl 匹配替换内容，MD5密码

批量解了几十个MD5密码好，MD5会员的钱都没了 好心痛


需要把原来的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[1]");
while (<>)
{
s/([\w]{32})//sg; #把32位的MD5删除
print RES $_;
}
close(RES);
其实也可以用一句就搞定perl -p -e s/([\w]{32})//sg ok4.txt，这是直接输入处理后的结果。本文出自 “n3tl04d's Blog-技..” 博客，请务必保留此出处http://n3tl04d.blog.51cto.com/89255/218152