Help for this page

Select Code to Download


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

...
    flock FH, 8;
    map { chomp; qr/$_/ } <FH>;
} if (-e $file && -r _);
  2. or download this
    map { chomp; qr/$_/ } <FH>;
  3. or download this
    my @match = eval {
    use Fcntl qw/:DEFAULT/;
...
    my @map = map { chomp; qr/$_/ } <FH>;
    return @map;
} if (-e $file && -r _);
  4. or download this
    {
    use Fcntl qw/:DEFAULT/;
...
    flock FH, 8;
    map { chomp; qr/$_/ } <FH>;
}