gpt4 book ai didi

perl - 如何输出当前目录下的空文件名?

转载 作者:行者123 更新时间:2023-12-01 06:45:43 27 4
gpt4 key购买 nike

我正在尝试检查我的文件夹中是否有空文件(0 字节)。我有大约 1,200 个文件,所以 Perl 将使这项任务变得非常简单:)

到目前为止,这是我的代码,但它似乎不起作用。 (它只是列出了所有文件。)任何人都可以教我我做错了什么吗?谢谢!

#!/usr/bin/perl
@files = glob('*');
if ((-s @files) == 0) {
print"@files\n";
}

最佳答案

您进行了一次检查,但您有多个文件。显然,这没有任何意义。您需要添加一个循环来检查每个文件。

#!/usr/bin/perl
use strict;
use warnings;
my @files = grep { -s $_ == 0 } glob('*');
# or: grep { ! -s $_ }
# or: grep { -z $_ }
# or: grep { -z }
# or: grep -z,
print "@files\n";

在您的版本中,您试图获取名为 12 的文件的大小或 @files 的元素数量。结果,-s 返回 undef 并设置了 $!{ENOENT}

关于perl - 如何输出当前目录下的空文件名?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18089041/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com