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?
Thanks ahead of time,
--Errin
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
