文件长度不是0大小但是为空,如何消除这个？

Question

我写了一个Perl包装器,应用了一些unix命令,将输出写入日志文件.但是我看到它创建了一些空文件,但我看到一些正在创建的文件不是0大小,而是说明了1byte; 因此我在使用"if(-s"文件")做其他事情做其他事情时遇到问题"对于某些后期处理的东西.有人可以帮助我的代码为什么创建一个空行(我猜,虽然我已经在那里放置了一个chomp),有没有办法消除那个空行,这样如果没有数据输出日志文件总是会转到0字节在处理unix命令后被捕获？或者..你可以建议一个有效的方法来检查文件是否为空这样的情况.

sub sub_unaccessfiles {
    my ($disk) = @_ ;
    @disk_sorted = split (/\s+/, $disk) ;
    $disk_Name = $disk_sorted[4] ;
    my $aging_disk = basename ($disk_Name) ;
    open (OUT3, ">./diskmonitor_logs/char_disks/aging_files_$aging_disk") || die "Cannot create ./diskmonitor_logs/char_disks/aging_files_$aging_disk: $!\n" ;
    my $cmd_aging_grab = `find $disk_Name -type f -name .snapshot -prune -o -atime +180 -printf '%u\t%s\t%t\t%p\n'` ;  
    chomp $cmd_aging_grab ;
    print OUT3 "$cmd_aging_grab\n" ;
    close OUT3 ;
       ..
       ..
}

Answer 1

你的印刷线:

print OUT3 "$cmd_aging_grab\n" ;

其中有一个'\n' - 每次都会产生空行 - 即使$ cmd_aging_grab的内容为空