file - Detect empty directory with Perl -

what easy way test if folder empty in perl? -s, , -z not working.

example:

#ensure apps directory exists on test pc. if ( ! -s $gappsdir ) {      die "\n$gappsdir not accessible or not exist.\n";  }  #ensure apps directory exists on test pc. if ( ! -z $gappsdir ) {      die "\n$gappsdir not accessible or not exist.\n";  } 

these above, not work tell me folder empty. thanks!

---

thanks all! ended using:

sub is_folder_empty { $dirname = shift; opendir(my $dh, $dirname) or die "not directory";  return scalar(grep { $_ ne "." && $_ ne ".." } readdir($dh)) == 0; } 

a little verbose clarity, but:

sub is_folder_empty {     $dirname = shift;     opendir(my $dh, $dirname) or die "not directory";     return scalar(grep { $_ ne "." && $_ ne ".." } readdir($dh)) == 0; } 

then can do:

if (is_folder_empty($your_dir)) {     .... }