Folks,
Can someone shed some light on this little blunder of mine?
opendir DIR, "../logs/set1" or die "Can't open ../logs/set1: $!";
@allFiles = readdir DIR;
closedir DIR;
foreach (@allFiles) {
if( ($count % 3) == 0 ) {
push(@logFiles1,$_);
} else {
if ( ($count % 2 ) == 0 ) {
push(@logFiles2,$_);
} else {
push(@logFiles3,$_);
}
}
$count++;
}
@CMD = ( "egrep -c ", "egrep -c ", "egrep -c " );
@LOGS = ( \@logFiles1, \@logFiles2, \@logFiles3 );
print "Totals: " . @logFiles1 . " " . @logFiles2 . " " . @logFiles3 . "\n";
print "@${LOGS[0]}";
exit;
the output is not what I expected, I thought the last print would actualy
access the referenced array and
spew for the files.... but it prints nada!
regards,
Ron