perl筛选wvs批量扫描结果

之前用wvs_console进行批量扫描生成了大量html报告，下面写了一个perl脚本来帅选出有高危漏洞的站点。

 
 

?#!/usr/bin/perl?-w?
  
  
?
  
  
use?strict;?
  
  
use?warnings;?
  
  
use?Cwd;?
  
  
use?File::Copy;?
  
  
?
  
  
my?$dir?=?getcwd();?
  
  
my?$dstdir?=?"/lab/report/xss/";?
  
  
my?$count?=?0;?
  
  
opendir(D,$dir)?or?die?"Cannot?open?dir:?$!";?
  
  
my?@lists?=?readdir(D);?
  
  
foreach?my?$list(@lists){?
  
  
????????count($list);?
  
  
}?
  
  
closedir(D);?
  
  
?
  
  
sub?count?
  
  
{?
  
  
my($file,?$site,?$content)?=?@_;?
  
  
if?($file?=~?/.*@d+-d+-d+_(.*).html/)?{?
  
  
????????$site?=?$1;??
  
  
????}????
  
  
open(F,?$file)?or?die?"Cannot?open?report?file:?$!";?
  
  
while?(<F>)?{?
  
  
????????chomp;?
  
  

????$content?=?$_;??


  
  
????????if?($content?=~?/.*High</td><td?colspan="3"?rowspan="4"?class="s21">(d+)</td><td/><td/><td/><td/><td/><td/>/)?{?
  
  
????????????????if?($1?>?0)?{?
  
  
????????????????#???????print?$file."n".$dstdir.$file."n";?
  
  
????????????????????????copy($dir."/".$file,?$dstdir.$file)?or?die?"Copy?failed:?$!";?
  
  
????????????????print?$site?."?Found?".?$1."?alert(s)n";?
  
  
????????????????last;?
  
  
????????????????}?
  
  
????}?
  
  
}?
  
  
close(F);?
  
  
}?