Skip to content
This repository
Fetching contributors…

Cannot retrieve contributors at this time

executable file 18 lines (16 sloc) 0.4 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#!/usr/bin/perl -w
use strict;
use Digest::MD5;

process_file($_) for @ARGV;

sub process_file {
    my $file = shift;
    open my $fh, $file or die $!;
    while (<$fh>) {
my ($count, $crit, $reason) = m/# uncoverable:\s+(\d+)\s+(\w+)\s+(.*$)/ or next;
my $md5 = Digest::MD5->new->add($_)->hexdigest;
$crit =~ s/s$//;
for (0..$count-1) {
print "$file $crit $md5 $_ 0 $reason\n";
}
    }
}
Something went wrong with that request. Please try again.