Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: seek function always returns true

by crouchingpenguin (Priest)
on Jun 20, 2007 at 13:17 UTC ( #622235=note: print w/replies, xml ) Need Help??


in reply to seek function always returns true

See eof:
open(my $fh, '>', 'f00') or die $!; seek($fh, 100, 0) or die "seek:$!"; print "eof!" if eof($fh); close($fh);

cp
----
"Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."