#!/usr/bin/perl

open ($fh, "<", $ARGV[0]);
$seqTime = $ARGV[1]; 
$nrTimes = 0;
while (<$fh>) {
    @data = split(" ", $_);
    if ($data[0] eq "convolution_pipe") {
        $nrCPU = $data[1];
    } else {
        $nrTimes++;
        $totalTime += $data[1];
        if ($nrTimes == 4) {
            $spdp = $seqTime / ($totalTime / 5);
            print "$nrCPU $spdp\n";
            $nrTimes = 0;
            $totalTime = 0;
        }
    }
}
