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
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
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
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
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
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
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,
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( ) {
