Re^3: Watch log for string (tail -f)

[BrowserUk]

tail -f doesn't end until you interrupt it. Try something like this:

#! perl -slw
use strict;

my $pid = open TAIL, '-|', 'tail -f theLog' or die $!;
my @matches;
while( @matched <3 and defined( $_ = <TAIL> ) ) {
      push @matches, $_ if /the search term/;
}

kill 2, $pid;

## do something with the 3 lines in @matches.

[bimleshsharma]

Try this, May this will help

use File::Tail;

sub reading_updated_file
{
    my $path=shift;
    my $count=0;
    my $file=File::Tail->new($path);
    while(defined (my $read=$file->read))
    {
      if($read =~ /string_to_match/)
        { 
          $count++;
           last if $count ==3;
          
        }

    print "here doing rest statements";
    }

    
}
&reading_updated_file("path of file_to tail");

[Skootaman]

This just really helped me. Note that @matches is declared but is interchangeably used as @matched, apart from that, this is really useful - thanks :)