Help for this page

Select Code to Download


  1. or download this
    if($opsys eq "unix"){flock(FILE, 2);}
else{binmode(FILE);}
  2. or download this
    use Fcnlt qw(:flock);
open(FILE, "+<$bookfile")
...
if($opsys eq "unix"){flock(FILE, LOCK_EX) # Error-check here.}
else { # What do we do on other systems? }
binmode FILE;