Select Code to Download

use strict;
use warnings;
...
  print "total defects so far: $total_defects\n";
}
close $df;

DEFECTID ATTR1 ATTR7 ATTR4
DEFECTID ATTR3 !ATTR1
...
DEFECTID ATTR4

DEFECTID ATTR3

defects found this line: ATTR1, ATTR7
total defects so far: 2
...
total defects so far: 4
defects found this line: ATTR3
total defects so far: 5

use strict;
use warnings;
...

print "Found $total_defects total defects.\nDefect breakdown follows:\
+n";
print $_ . ":\t\t" . $defect_subtotals{$_} . "\n" for sort keys %defec
+t_subtotals;

Found 5 total defects.
Defect breakdown follows:
ATTR1:          1
ATTR3:          3
ATTR7:          1