perl - 有什么方法可以使用 Perl 程序检查文件是否为空文件？

Question

我正在寻找一个小脚本，它会告诉我文件是否为空文件，但我无法显示它。

我使用了下面的代码:

opendir DIR,$directory ;
while (my $dir =readdir DIR) {
    if (-s "$dir") {
    print "This is an empty file";
    }
}

在这里我无法打印“这是一个空文件”并且我的代码没有进入 if 循环。谁能告诉我上面的代码有什么问题？

Answer 1

相关file test operators是:

• -z:检查文件是否为空。
• -s:检查文件大小是否为非零(以字节为单位返回大小)。

您正在检查 $dir 是否为非空，这与您要实现的目标相反。请改用 -z(或 !-s)。

此外，每个 $dir 只是没有路径的文件名，因此如果您不处理当前目录，则需要自己包含它。

if (-z "$directory/$dir") {
    print "This is an empty file";
}