Help for this page

Select Code to Download


  1. or download this
    
#!/usr/local/bin/perl
...
    open my $G, $fn;
    flock($G, LOCK_EX|LOCK_NB) or warn "no lock 2";
}
  2. or download this
    #!/usr/local/bin/perl
use Fcntl qw(LOCK_EX LOCK_UN LOCK_NB);
...

open my $G, $fn;
flock($G, LOCK_EX|LOCK_NB) or warn "no lock 6";
  3. or download this
    
sub FOO::DESTROY {print "DESTROYING FOO\n"}
...
for my $fn (fn()) {
    print "I got $fn\n";
}