Help for this page

Select Code to Download


  1. or download this
    open (LOGHANDLE, ">>outputfile.txt")|| &ErrorMessage;  
flock (LOGHANDLE, 2);
print LOGHANDLE "$theDataYouWantToOuputToTheFile\n";
flock (LOGHANDLE, 8);
close (LOGHANDLE);
  2. or download this
    use Fcntl qw(:flock); #Imports LOCK_EX, LOCK_SH, LOCK_NB