Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    
    1;
    __END__
    
  2. or download this
    #!/usr/bin/perl -w
    
    ...
    # try unlock
    $lock->unlock();
    print "Unlocked '$file'.\n";
    
  3. or download this
    #!/usr/bin/perl -w
    
    ...
        # do nothing
      }
    };
    
  4. or download this
    Created FileLock obj for 'filelock.sem'.
    Got shared lock on 'filelock.sem'.
    ...
      Reset timeout
    Got exclusive lock on 'filelock.sem'.
    Unlocked 'filelock.sem'.
    
  5. or download this
    Before 10 seconds:
    Created FileLock obj for 'filelock.sem'.
    ...
    Got shared lock on 'filelock.sem'.
      Doing flock
    Could not get exclusive lock within 10 seconds.