mirror of
https://git.FreeBSD.org/src.git
synced 2024-12-19 10:53:58 +00:00
7ebe1c3acf
deal with filename arguments. It is amazing how much you forget over time. Thanks to the people that reminded me this. I knew there was an easy way that didn't involve messing with $argv, filehandles, etc, but just could not remember - all of my books are on the opposite side of the planet..
23 lines
461 B
Perl
23 lines
461 B
Perl
#! /usr/bin/perl
|
|
# $FreeBSD$
|
|
|
|
$lno=0;
|
|
while (<>) {
|
|
chop;
|
|
s/#.*//;
|
|
s/\f//g;
|
|
s/^[ \t]+//;
|
|
$line = $_;
|
|
$lno++;
|
|
($key, @rest) = split;
|
|
next if ($key eq "");
|
|
next if ($key =~ /^hint\./);
|
|
if ($key eq "machine" || $key eq "ident" || $key eq "device" ||
|
|
$key eq "makeoptions" || $key eq "options" ||
|
|
$key eq "cpu" || $key eq "option" || $key eq "maxusers") {
|
|
print "$line\n";
|
|
} else {
|
|
print STDERR "unrecognized line: line $lno: $line\n";
|
|
}
|
|
}
|