Date: Fri, 16 Jun 2000 22:31:16 -0500 From: Chris Costello <chris@calldei.com> To: Peter Wemm <peter@netplex.com.au> Cc: "Jordan K. Hubbard" <jkh@zippy.osd.bsdi.com>, van.woerkom@netcologne.de, current@FreeBSD.ORG Subject: Re: GENERIC from today does not detect system console on my box Message-ID: <20000616223116.I98160@holly.calldei.com> In-Reply-To: <20000617024718.8BD3D1CE2@overcee.netplex.com.au> References: <chris@calldei.com> <20000617024718.8BD3D1CE2@overcee.netplex.com.au>
next in thread | previous in thread | raw e-mail | index | archive | help
On Friday, June 16, 2000, Peter Wemm wrote:
> How about that and as a stdin pipe as well if no args are specified?
Well, I don't know about modifying the argument vector in Perl
(and I'd rather not find out how it behaves across various
circumstances), but:
#!/usr/bin/perl -w
my @arguments; # pseudo argument vector.
push @arguments, @ARGV;
# if no file list is specified, read from the standard input
push @arguments, "/dev/stdin" if !defined($arguments[0]);
while (defined($arguments[0])) {
system("ls -l " . $arguments[0]);
shift @arguments;
}
--
|Chris Costello <chris@calldei.com>
|You buttered your bread, now lie in it.
`---------------------------------------
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-current" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20000616223116.I98160>