Help for this page

Select Code to Download

Select or download this

while ( defined($tail_line = $tail_file->read) ) {
    foreach my $key ( keys %pattern ) {

Select or download this

my $regex = join '|', map quotemeta, keys %patterns;
while ( defined($tail_line = $tail_file->read) ) {
...
       print "logging $pattern{$1} for $tail_line";
   }
}