强力档正则表达式 - 若干年后自己都快看不懂了^_^
blog最主要还是作为自己积淀的一个总结，所以逛逛电脑上许久未曾到过的地方先，果不其然，下面这段代码甚至让自己也汗了一把，仔细想了想，应该是做网络安全审计的时候，从POST数据包中，窃取可能存在的用户名和密码的代码，罪过啊罪过，好在只是验证测试性质，未实际投入使用
估计不会有什么复用价值，所以其它不多说了，上代码，一边精读《精通正则表达式》，一遍写的，顺便赞一下这本书，以及强大的perl！
?
perl代码（JE居然木有perl高亮。。。）：
?
?
# 用法 perl findUser.pl 文件夹$dir=$ARGV[0];#print "(debug) dir is $dir , \n";if(opendir DD,"$dir"){ @dirList = readdir(DD); #print @dirList; closedir(DD); foreach $mydir (@dirList){ if($mydir=~/txt$|CONTENT$/){ #print "(debug) var mydir is $mydir \n"; open(MYFILE,$mydir)|| die ( "cannot open $mydir\n");######################################### # 解析头 while($line = <MYFILE>){ #print $line; if($line =~ m/Host:\s*(\S+)/i){ $host = $1; #print "\nhost:====$host====\t"; #last; } # 头体分割行 #if($line =~ m/^\s$/m){ #last; #} #} #while($line = <$mydir>){ if($line =~ m/ # 匹配用户名的部分 (?:&|\s) (u(?:se?r)?|login|account|member|alias|chat|nick)?_? # 用户名不规则,如果前半部分出现,则后半部分可以不出现 # 如果前半部分没出现,则后半部分必须出现 (?(1) (?:name|id|key)? |(?:name|id|key) ) # 这里就是保存到的用户名了 = ([^&\s]+) # 用户名和密码之间,是不是一定有一个&?,用户名是不是一定在密码之前? # 有密码在用户名之前的,目前还没有处理这种情况 #&(?:.+&)* # 先找到用户名了才去找密码 (?(2) (?: (?:&|\s) # 匹配密码的部分,QQ密码可以为空格,密码为(多个)空格如何处理?\s包括空格么? (?:(?:user)?|(?:login)?) # 还需要优化,搞得不清楚 password passwords pwd pwds pass key keys (?:p(?:ass)?w(?:or)?ds?|key|pass) # 这里就是保存到的密码了 = ([^&\s]+) ) ) # i-忽略大小写,x-可以对正则表达式排版 /ix ){ $name=$2; $pass=$3; print "host:==$host==\tname:==$name==\tpass:==$pass==\n"; #last; } }######################################### } }}??
?