bimleshsharma has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to read log of server which is being updating continuously. I tried below code but i dont see output.Thanks in advance

use File::Tail;
my $file = File::Tail->new("/some/log/file");
while (defined(my $line= $file->read)) {
    print $line;
}

[download]

Replies are listed 'Best First'.
Re: Read log which is being updated continuisly
by Arunbear (Prior) on Sep 20, 2012 at 11:13 UTC
    You may need to adjust the parameters you pass to new(). E.g. with 
    perl -MFile::Tail -E '$f = File::Tail->new(q[/var/log/foo/bar.log]); p
+rint $l while $l = $f->read'

    [download]
    I had to wait 9 seconds before output was produced. But with 
    perl -MFile::Tail -E '$f = File::Tail->new(name=> q[/var/log/foo/bar.l
+og], tail=>10, maxinterval=>0.5); print $l while $l = $f->read'

    [download]
    The output appears right away.
[reply]
[d/l]
[select]
Re: Read log which is being updated continuisly
by nemesdani (Friar) on Sep 20, 2012 at 09:34 UTC
    You must tie() your filehandle, thus the <> operator won't return an undef.


    I'm too lazy to be proud of being impatient.
[reply]
[d/l]
[select]
      Yes you are right but File::Tail->read has capability to read file. Anyway i tried below but still not success. 
      use File::Tail;
my $name="/some/file/toread/";
    my $ref=tie *FH,"File::Tail",(name=>$name);
    while (<FH>) {
        print "$_";
    }

      [download]
[reply]
[d/l]
      but OP isn't using the <> operator, op is using the read method, straight from the synopsis
[reply]

Back to Seekers of Perl Wisdom