1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/perl -w
$last = "unknown";
$mtot=$mbad=$mdesc=$mundef=0;
$tot =$tbad=$tdesc=$tundef=0;
while (<>) {
if (/^[^\/]+[\/]([^ \/]+)/) {
$mod=$1;
if ($mod ne $last) {
if ($mtot) {
if (!$tot) {
printf "Bad Des Und Module\n";
}
printf "%3d %3d %3d %s\n", $mbad, $mdesc, $mundef, $last;
}
$tot+= $mtot;
$tbad += $mbad;
$tdesc += $mdesc;
$tundef += $mundef;
$mtot=$mbad=$mdesc=$mundef=0;
$last = $mod;
}
if (/[\(]undefined[\)]/) {$mundef++}
elsif (/bad category type \S+ described as/) {$mdesc++}
else {$mbad++}
$mtot++;
}
}
printf "%3d %3d %3d TOTAL\n", $tbad, $tdesc, $tundef;
|
