ghc/misc/examples/cats/mangle_times

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