Diamond Operator and Filenames

2005-02-18 Thread Larsen, Errin M HMMA/IT
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

RE: Diamond Operator and Filenames

2005-02-18 Thread Wagner, David --- Senior Programmer Analyst --- WGO
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

RE: Diamond Operator and Filenames

2005-02-18 Thread Larsen, Errin M HMMA/IT
Larsen, Errin M HMMA/IT wrote: Hi Perl-Crunchers, I've got the following code: CODE SNIPPED 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

RE: Diamond Operator and Filenames

2005-02-18 Thread Wagner, David --- Senior Programmer Analyst --- WGO
Larsen, Errin M HMMA/IT wrote: Larsen, Errin M HMMA/IT wrote: Hi Perl-Crunchers, I've got the following code: CODE SNIPPED 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

Re: Diamond Operator and Filenames

2005-02-18 Thread John W. Krahn
Larsen, Errin M HMMA/IT wrote: Hi Perl-Crunchers, Hello, 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

Re: Diamond Operator and Filenames

2005-02-18 Thread John W. Krahn
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

RE: Diamond Operator and Filenames

2005-02-18 Thread Wagner, David --- Senior Programmer Analyst --- WGO
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,

Re: Diamond Operator and Filenames

2005-02-18 Thread John W. Krahn
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( ) {