empty file

[Kasd2002]

Hi there!
Can anyone tell me how can i check if a file is empty (and the file of that size if it is not empty)?
Thanks

 

[ProbablyDown]

Try:

if (-z $filename) {
do this;
}else {
do that;
}

Good luck,
-pd

 

[ProbablyDown]

oh ya, and for not empty,

if (-z $filename) {
print "file is empty\n";
}else {
print file size is %d\n", -s $filename;
}


That might work too....

-pd

 

[133tcamel]

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

#$size is what you'll be looking for

$size ? "print size is $size" : print "empty";

---
cheers!
san

"The universe has been expanding, and Perl's kind of been expanding along with the universe" - Larry Wall

 

[justice41]

The -s operator return the file size of the file and a zero filesize will evaluate to false. so a slight modification of ProbablyDown's script would give you

if ( $size = -s $filename ) {

    print "file '$filename' has size $size\n";

} else {

    print "file '$filename' has zero size\n";
}

which only involves one system call.

jaa