File: getlist

package info (click to toggle)
lmbench 3.0-a9%2Bdebian.1-6
  • links: PTS
  • area: non-free
  • in suites: bookworm
  • size: 2,996 kB
  • sloc: ansic: 12,328; perl: 6,531; sh: 2,784; makefile: 731
file content (31 lines) | stat: -rwxr-xr-x 633 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

# Find everything in my results directory that looks like lmbench output.
#
# Hacked into existence by Larry McVoy (lm@bitmover.com)
# Copyright (c) 1994-1998 Larry McVoy.  
# $Id$
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) {
	next if $file =~ /\.INFO$/;
	open(FD, $file) || next;
	next unless defined($_ = <FD>);
	close(FD);
	next unless /^\[lmbench3.[01]/;
	print "$file ";
}
print "\n";
exit 0;