我编写了一个 Perl 包装器,应用了一些 unix 命令,将输出写入日志文件。但是我看到它创建了一些空文件,但我看到一些正在创建的文件不是 0 大小,而是声明 1byte;因此,对于某些后期处理内容,我在使用“if (-s "file") do something else do other thing”时遇到了问题。有人可以帮助我的代码为什么创建一个空行(我想,虽然我已经在那里放置了一个 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 ;
..
..
}