Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 19 lines (16 sloc) 0.4 kB
#!/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";
}
}
}
Jump to Line
Something went wrong with that request. Please try again.