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<\/td>"3" rowspan="4" class="s21">(\d+)<\/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);
}