perl 下判断文件和目录是否为空？

老帽爬新坡

于 2022-11-13 13:40:10 发布

阅读量1.6k

点赞数

CC 4.0 BY-SA版权

文章标签： perl 开发语言

本文链接：https://blog.youkuaiyun.com/bobonow/article/details/127831287

本文介绍了如何使用Perl的Tie::File模块判断文件是否为空，并展示了判断目录是否为空的方法，通过实例演示了检查目录内容的技巧。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1，判断文件是否为空
没找到perl下直接判断文件为空的好方法，突然发现这个 Tie::File 模块挺有用，代码如下：

#!/usr/bin/perl -w

use strict;
use Tie::File;

my $filename = '/opt/test/aa';
tie my @array, 'Tie::File', $filename or die "$!";

if ( @array ) {
    print "$filename is have file. \n";
}
else {
    print "$filename is empty. \n";
}



2，判断目录是否为空
判断目录为空的方法，无非也是查看目录下是否有文件，注意也可以查看是否有隐藏文件，带#那行代码就可以。

#!/usr/bin/perl -w

use strict;

my $dirname = "/opt/null";
my @dir_files = <$dirname/*>;
#my @dir_files = <$dirname/* $dirname/.*>;

if ( @dir_files ) {
    print "$dirname is have file. \n";

    foreach my $file (@dir_files) {
        print "$file\n";
    }
}
else {
    print "$dirname is empty. \n";
}