
# Find everything in my results directory that looks like lmbench output.
#
# Hacked into existence by Larry McVoy (lm@sun.com now lm@sgi.com).
# Copyright (c) 1994 Larry McVoy.  GPLed software.
# $Id: s.getlist 1.7 98/07/01 01:19:00-07:00 lm@lm.bitmover.com $
eval 'exec perl -Ssw $0 "$@"'
	if 0;

$LIST = "no such file";
$LIST = "LIST" if (-f "LIST");
$LIST = $ARGV[0] if (($#ARGV == 0) && (-f $ARGV[0]));
if (-f $LIST) {
	open(L, $LIST);
	$_ = <L>;
	chop;
	@files = split;
	close(L);
} else {
	@files = <*/*>;
}
foreach $file (@files) {
	open(FD, $file) || next;
	next unless defined($_ = <FD>);
	close(FD);
	next unless /^\[lmbench1.[01]/;
	print "$file ";
}
print "\n";
exit 0;
