about summary refs log blame commit diff
path: root/t/perf/min_time.perl
blob: c1a2717e07725b9a8d7837eaba1015c0e694d277 (plain) (tree)




















                                                                            
#!/usr/bin/perl

my $minrt = 1e100;
my $min;

while (<>) {
	# [h:]m:s.xx U.xx S.xx
	/^(?:(\d+):)?(\d+):(\d+(?:\.\d+)?) (\d+(?:\.\d+)?) (\d+(?:\.\d+)?)$/
		or die "bad input line: $_";
	my $rt = ((defined $1 ? $1 : 0.0)*60+$2)*60+$3;
	if ($rt < $minrt) {
		$min = $_;
		$minrt = $rt;
	}
}

if (!defined $min) {
	die "no input found";
}

print $min;