Re: GENERIC from today does not detect system console on my box

[Chris Costello]

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 <[EMAIL PROTECTED]>
|You buttered your bread, now lie in it.
`---------------------------------------


To Unsubscribe: send mail to [EMAIL PROTECTED]
with "unsubscribe freebsd-current" in the body of the message