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

本文介绍了如何使用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";
}

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

老帽爬新坡

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值