Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w
use strict;
use Fcntl ':flock';
...

# flock(INFILE, LOCK_UN); # don't use unlock, it's done automagically 
+by close()
close(INFILE);
  2. or download this
    use strict;
use Fcntl ':flock';
...
  print "$key: $hash{$key}\n";
}
close(INFILE);