blob: b595a5b46717546be0dee5a5f3a69ee4e15f2e0d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#! /usr/local/bin/perl
$InputSize = 0;
while (<>) {
chop;
if ( m,< /users/fp/partain/bib/comp.bib, ) {
$InputSize = 625643;
print "$_\n";
} elsif ( m,\$bghc/lib/libHS_p.a, ) {
$InputSize = 9352492;
print "$_\n";
} elsif ( m,\$bghca/lib/libHS_p.a, ) {
$InputSize = 25455204;
print "$_\n";
} elsif ( /^\s*(\d+\.\d+)u (\d+\.\d+)s / ) {
$UserSysTime = $1 + $2;
$BytesPerSec = $InputSize / $UserSysTime;
printf "%.0f\t%s\n", $BytesPerSec, $_;
}
}
|
