perl - 使用 Perl 检测空目录

Question

在 perl 中测试文件夹是否为空的简单方法是什么？ -s 和 -z 不起作用。

例子:

#Ensure Apps directory exists on the test PC.
if ( ! -s $gAppsDir )
{ 
    die "\n$gAppsDir is not accessible or does not exist.\n"; 
}

#Ensure Apps directory exists on the test PC.
if ( ! -z $gAppsDir )
{ 
    die "\n$gAppsDir is not accessible or does not exist.\n"; 
}

以上这些，不能正常工作告诉我文件夹是空的。谢谢!

谢谢大家!我最终使用了:

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

Answer 1

为了清楚起见有点冗长，但是:

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

然后你可以这样做:

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