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

Reply via email to