Help for this page

Select Code to Download


  1. or download this
    while(  ++$tries <= 10  ) {
  2. or download this
    do {
    if(  0 < $tries++  ) {
        warn "Can't flock file: $!\n";
...
    warn "Locking file (attempt $tries)...\n";
} while(  ! flock(FILE,2)  );
# Success!