Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

use strict;
...


@ARGV ? locker() : main();
  2. or download this
    >perl lockdemo.pl
locker: flock LOCK_EX
locker: locked
...
locker: unlocked

>
  3. or download this
    H:\tmp>perl lockdemo.pl
locker: flock LOCK_EX
locker: locked
...
locker: unlocked

H:\tmp>