Re: Getting file size

[MZSanford]

<sarcasim>

open(F,$filename) || die "Could not open file '$filename' : $!\n";
while (<F>) {
    $size += length($_);
}
close(F);

</sarcasim>

---

from the frivolous to the serious

[Anonymous Monk]

open(F, "> $filename") or die "Could not open file '$filename': $!\n";
close(F);
$size = 0;

[grantm]

I'll see your sarcasm and raise you one dose of pedantry :-)

On Win32, your code would not work reliably unless you add binmode(F) since every CRLF pair will get converted to the single character LF.