Question

perl 判断文件是否为空

Answer 1

my $filename = "1234";
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
if($size == 0)
print "空文件";

Answer 2

先新建一个空的文件，然后拿要判断的文件和这个空文件进行对比判断即可。
touch null

if(`diff otherdo null`)
{
print "otherdo is no null\n";
}
else
{
print "otherdo is null\n";
}

Answer 3

-f 还是哪个参数忘了

Answer 4

if (-z $file)