强力档正则表达式 - 若干年后自己都快看不懂了^_^

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;
            }
            
        }


#########################################
        }
    }
}