如何在 Perl 中检查非空文件

Question

我使用 find 命令在目录中查找文件。我想在继续之前检查目录中的文件是否不为空（非 0 大小）。感谢 find 手册，我知道如何使用 -empty 选项识别空文件。

但是，我想使用 Perl 来检查非空文件。我怎样才能做到这一点？

提前致谢。

Answer 1

请参阅 perldoc perlfunc -X 了解Perl 文件测试运算符。您想要的是这个：

-s  File has nonzero size (returns size in bytes).

---

显示如何使用 File::Find 的简单脚本：

#!/usr/bin/perl -w
use strict;

use File::Find;

# $ARGV[0] is the first command line argument
my $startingDir = $ARGV[0];

finddepth(\&wanted, $startingDir);

sub wanted
{
    # if current path is a file and non-empty
    if (-f $_ && -s $_)
    {
        # print full path to the console
        print $File::Find::name . "\n";
    }
}

在此示例中，我将输出发送到控制台。要将其通过管道传输到文件，您只需使用 shell 输出重定向，例如 ./findscript.pl /some/dir > somefile.out。

Answer 2

请查看 perldoc http://perldoc.perl.org/functions/-X。 html

-z  File has zero size (is empty).
-s  File has nonzero size (returns size in bytes).

检测非空文件的示例用法：

unless ( (-z $FILE) ) { process_file($FILE); }
if (-s $FILE) { process_file($FILE); }