#!/usr/bin/perl -w

use strict;

my ($nfft, $count, $time, $usec);

$count = 0;
while (<>) {
  if (/\*\* NFFT (\d+)/) {
    $nfft = $1;
  } elsif (/Ran (\d+) ffts in \S+ sec/) {
    $count += $1;
  } elsif (/Total time = (\S+) sec \((\S+) uSec\/fft\)/) {
    $time = $1;
    $usec = $2;
  } elsif (/Total Rate = (\S+) Mbps/) {
    printf("%7d %10d %4.1f %8.3f %7.1f\n", $nfft, $count, $time, $usec, $1);
    $count = 0;
    $time = undef;
    $usec = undef;
  }
}