perl实例1 32位MD5.docxVIP

最近些天看了Schwartz写的Perl语言入门。 在这本书的前言部分，大概了解了Perl差不多是融合了各种语言的优势，比如PHP/Python的正则表达式,C的基本语法等，正如书上说的那样，他把几个有不同魔力的水晶球熔掉，再加入一些小的有着特殊魔力的水晶球，然后把它们熔在一块，成了一个拥有各种魔力的大水晶球。而这个大水晶球已经是极具魔力了！Perl就是那个最后的大水晶球，而C,PHP,Python，则是被熔掉的小水晶球。 废话没有说服力，以代码为证。 我以一个简单的文本查找来举例： 有一个pass.txt，里面存了很多用户名和密码的32位MD5值等信息，我现在要把里面的MD5值全找出并在屏幕上输出，pass.txt内容如下： raymond:ec27bae8a6a68e7540e9 81c0f888dc92 ,jake:0d4cbaad3bbd 67c1bcd603b2a01468e8 ,This world nev er dies:e8a7e2db3141e0c9baf819a8e495f651 ,da mesdale:b2ee7d25dc385b3cb5d596d5cb2d6 47b ,shekinah:5da4266d3de6dbaf425a2 d4fc16225d0 ,jhin:3360d0103043bca029a5 a9b3561c9fc5 ,ajmp_4444:f6e28e2a2d1b1b 14adbc47534da454b5 ,ichoi:1b4d3c02d20d2f306 acdeff8469715fc ,kathrinasayan:8320c41f1ddc956da42d7ff 46ad46203 ,buenferdinan d:b9a1ee8824e58db7c1c5f4014 691bdca ,jinieuge_22:f8ba79b96fb 634fc450052686efe46d8 ,gilmore12 2002:17c79b29567c1f39a4391cfce06da5e0 ,mi stymwah:64d6bbb2a411ef0561afc6300f1e57d1 ,serjs 88:898dd88cca7b2f65461bc491dacb9b25 ,serjs8 8:898dd88cca7b2f65461bc491dacb9b25 ,sheryld aquioag:4d54f483e2eaf8ce64010 0d88f8a29eb ,jayson:9eef6a1f927654f24801f58 fe67bb1d4 ,Geraldine:8002d34dc747d707ccb fb93fdaab9bce 可以看到，内容很乱，不但有用户名的干扰，还有逗号，冒号，换行等符号的干扰。 如果想用C等语言把里面的MD5整理出来是件很麻烦的事，在Perl下则不同了。 下面是我写的代码(find.pl)： # F:\Perl -w while () #打开参数文件并读入一行 { chomp($a.=$_); #去掉行尾换行符，并接到上一行剩余字符串后面 while($a=~/([\w]{32})/) #匹配32位MD5字符串(正则表达式处理文本，效率真是一流) { print $1.\n; #输出匹配的MD5字符串 $a=~s/.*$1//; #删除匹配过的MD5字符串,以便下一次匹配 } } 然后在命令行下输入： Perl find.pl pass.txt 就会把pass.txt里面的所有MD5值全输出的屏幕上。 运行结果如下： ec27bae8a6a68e7540e981c0f888dc92 0d4cbaad3bbd67c1bcd603b2a01468e8 e8a7e2db3141e0c9baf819a8e495f651 b2ee7d25dc385b3cb5d596d5cb2d647b 5da4266d3de6dbaf425a2d4fc16225d0 3360d0103043bca029a5a9b3561c9fc5 f6e28e2a2d1b1b14adbc47534da454b5 1b4d3c02d20d2f306acdeff8469715fc 8320c41f1ddc956da42d7ff46ad46203 b9a1ee8824e58db7c1c5f4014691bdca f8ba79b96fb634fc450052686efe46d8 17c79b29567c1f39a4391cfce06da5e0 64d6bbb2a411ef0561afc6300f1e57d1 898dd88cca7b2f