983feb5290
* bench/dtgbasat/: New directory. * bench/Makefile.am: New file. * configure.ac, README: Adjust.
17 lines
273 B
Perl
Executable file
17 lines
273 B
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use Time::HiRes;
|
|
|
|
my $start = Time::HiRes::gettimeofday();
|
|
my $res = `@ARGV` || die;
|
|
my $end = Time::HiRes::gettimeofday();
|
|
|
|
if ($res =~ /States:\s*(\d+)\w*$/som)
|
|
{
|
|
printf("%d, %f\n", $1, $end - $start);
|
|
}
|
|
else
|
|
{
|
|
printf("-, -\n");
|
|
}
|