Question

I’m using the readdir method to read a list of files from directories to an array. May I know how to read the zerro size file as the readdir will only read non-zerro file only. I would like to read the empty file as well (capture the file name as treat as exist even it is empty). May I know how to do so? Below is how I read the file from directories:-

opendir (FH, $dirs) || die $! ;
my @lines = readdir (FH) ; 
closedir (FH) ;

Thank you in advance.

Answer 1

First of all, you shouldn’t use a bare-word directory handle. Second, -z tells you when a file is empty. Something like this should work:

use strict;
use warnings;

my $dirs="/whatever/dir/you/want";

opendir(my $dh,$dirs) or die $!;

#only grabbing actual files that we can read.
my @files=grep{(-f $_) and (-r $_)} map{"$dirs/$_"} readdir($dh); 

closedir($dh);

foreach my $file(@files)
{
  if(-z $file)
  {
    print "File $file is empty.\n";
  }
  else
  {
    print "File $file is not empty.\n";
  }
}

In fact, as TLP pointed out in the comments, you can use -s to get the size (in bytes) of the file.