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 () {
  
•         chomp;
  
•     $content = $_;
  
•         if ($content =~ /.*High(\d+)/) {
  
•                 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);
  
• }