How to read every single file in a directory using foreach perl

Question

im trying to make a script on reading all of the files inside a directory but it seems i cant.... the only thing i can is to list the names of the file inside the directory.So is there a way for me to list it ? (Kinda new to perl and linux :U)

#!/usr/bin/perl

use strict;
use warnings;

#locate directories

my $DIR = "/home/aimanhalim/LOG";
opendir(DIR, $DIR) or die $!;

#open Directory and read all the file.

while (my $DIR = readdir(DIR)) {print "$DIR
";}


exit;

Answer 1

Assuming you have files that can be read line-by-line, as the directory name indicates log files:

use strict;
use warnings;
use autodie;

my $DIR = '/home/aimanhalim/LOG';
chdir $DIR;
opendir my $dh, $DIR;
while (my $entry = readdir $dh) {
    next if $entry =~ /^[.]/; # skip the '.' and '..' entries and hidden files
    if (-f $entry) { # skip entries that are not files
        open my $fh, '<', $entry;
        while (my $line = $fh->getline) {
            # do something with the content
        }
    }
}

If you want to read directories recursively, perhaps switch over to Path::Tiny.