perl 判断文件是否为空

my $filename = "没笑1234"

my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename)

if($size == 0)

print "盯培空枯则含文件"

请查看手册perl函数里的-X：凯陪誉 perldoc -f -X

-z  File has zero size (is empty).

my $file = "/path/file.name"

if (-z 乱戚$file) { 盯段... }

---