John W. Krahn wrote:
Wagner, David --- Senior Programmer Analyst --- WGO wrote:
Larsen, Errin M HMMA/IT wrote:
Hi Perl-Crunchers,
I've got the following code:
#!/usr/bin/perl
use warnings;
use strict;
my $logdir = '/some/application/logs';
my @logs = <$logdir/*>;
push @ARGV, @logs;
while( <> ) {
print "$filename:\n$_" if( /with errors/ );
}
Of course, my problem is that I'm not filling in $filename in that
print statement with a value. I'd really like to be able to put the
name of the file the diamond ('<>') operator is currently parsing in
there. Is that possible? Do I have access to the individual
filenames AS they are being used in the while statement?
I believe that $ARGV[0] has the file being processed.
No, the array @ARGV doesn't change inside the while loop.
Sorry, see my other post which shows that @ARGV does indeed change.
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
