http://www.perlmonks.org?node_id=26532


in reply to checking if file is empty or not

hmm, this works but is probably inefficient.
open FILE, "Filename" || die; @file = <FILE>; close FILE; $file = join( "", @file); if ( $file ne "" ) { #there's something there! }

Just thought I'd pose another solution

--=Lolindrath=--