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?
>
> Thanks ahead of time,
>
> --Errin
I believe that $ARGV[0] has the file being processed. So I think you
could do something like:
if ( $. == 1 ) { # on the first read of the current file
print "Filename: " . $ARGV[0] . "\n";
}
Wags ;)
*******************************************************
This message contains information that is confidential
and proprietary to FedEx Freight or its affiliates.
It is intended only for the recipient named and for
the express purpose(s) described therein.
Any other use is prohibited.
*******************************************************
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
