3 foreach $l(`find ../results -name '*.log'`) {
7 system("./mdfconv $l > $t");
10 open(my $fh, '<', $t);
19 $time10us = $l2[14]-$l1[14];
20 # if (exists $hist{$time10us}) {
21 $hist{$time10us} += 1;
23 # $hist{$time10us} = 1;
27 foreach $t(reverse(sort {$a <=> $b} keys(%hist))) {
33 $h =~ s/.txt$/-hist.txt/;
34 open(my $fhout, '>', $h);
36 foreach $t(sort {$a <=> $b} keys(%hist)) {
37 printf $fhout "%g %d\n", $t/100.0, $hist{$t};