
# 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: getlist,v 1.4 1995/11/02 06:26:37 lm Exp $
eval "exec perl -Ss $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;
	split;
	@files = @_;
	close(L);
} else {
	@files = <*/*>;
}
foreach $file (@files) {
	open(FD, $file) || next;
	$_ = <FD>;
	close(FD);
	next unless /^\[lmbench1.[01]/;
	print "$file ";
}
print "\n";
