blob: 6a03b2f36b1b879dcf1188ce1ff38a34dacee13b (
plain)
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/usr/bin/perl -w
$/="";
# script for generating reports from the pscet status document
$mydb = "pscet_status.txt";
open(MYDB,$mydb) or die "Unable to open $mydb:$!\n";
$total=0;
$unclass=0;
$reviewed=0;
$ok=0;
$assigned=0;
$unassigned=0;
$repeats=0;
$diff=0;
$device_dependent=0;
$VERBOSE=0;
$JOBPAGEREG="^[0-9][^ \t]*";
while (<MYDB>) {
if (/$JOBPAGEREG/) {
$matches = 0;
@lines = split('\n');
for (@lines) { $matches++ if /$JOBPAGEREG/; }
print "bad entry: $matches, $_" if $matches != 1;
$total++;
if (/DIFF/) {
$diff++;
$device_dependent++ if (/Device Dependent/i);
if (/count:/) {
$unclass++;
} else {
$reviewed++;
if (/assign/i) {
$assigned++;
} else {
$unassigned++;
print "Unassigned $_";
}
$repeats++ if (/(repeat|same as)/); # && print "repeat $_\n";
}
} else {
if (/(OK|AOK)/) {
$ok++;
} else {
print "not classified\n";
}
}
} else {
print "bad record: $_\n" if $VERBOSE;
}
}
close(MYDB);
print "Total pages=$total\n";
print "Total pages ok or aok=$ok\n";
print "Total different=$diff\n";
print "Total pages unclassified=$unclass\n";
print "Total pages reviewed and different (not accepted as ok or aok)=$reviewed\n";
print "Total reviewed and assigned=$assigned\n";
print "Total reviewed and unassigned=$unassigned\n";
print "possible duplicate problems using keywords 'repeat' and 'same as' (overestimates)=$repeats\n";
print "Device dependent problems (different)=$device_dependent\n";
|