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

Perl与Tie::File模块：文件与目录空判断技巧

最新推荐文章于 2025-09-10 15:51:18 发布

原创最新推荐文章于 2025-09-10 15:51:18 发布 · 1.7k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#perl #开发语言

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

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";
}