Perl怎么判断文件内容是否为空呢？

zhaod06211

如题，怎么去判断文件内容是否为空，我试过用 if  -s 和 if  -z  都不行，请问如何解决？
有谁碰到过类似的问题呢？

cdtits

什么样的文件判断为空？

zhaod06211

普通的文本文件

cdtits

回复 3# zhaod06211


    文件长度为 0 么？

1.     if (-f $file and -z _)

复制代码

zhaod06211

检查文件内容是否为空咯

wxlfh

判断文件内容是否为空，你是以什么为标准？是文件长度为零吗？

zhaod06211

回复 6# wxlfh


    长度为0就为空嘛

zhaod06211

回复 4# cdtits


    这是不行的，我试了。

cdtits

回复 8# zhaod06211


    是吗？为什么我运行后可以呢？

1. #!/usr/bin/env perl
   
2. 
   
3. @files = <*>;
   
4. for $file (@files) {
   
5.     print "$file\n" if (-f $file and -z _);
   
6. }

复制代码

yinyuemi

stat
perl -le 'if(! (stat "file")[7] ){print "Empty file"}'