i didn't get your point , please explain little bit more...
Thanks,
Siva
On Wed, 2007-08-29 at 17:55 +0800, Jeff Pang wrote:
> I tested the codes,which run well for me.
> Give a try to add '$|++' to disable IO buffer.
>
> 2007/8/29, sivasakthi <[EMAIL PROTECTED]>:
> > Hi Guys,
> >
> > I have used the following code to print the log files. but nothing is
> > printed even it doesn't show the warning message, no prompt is
> > returned.
> > what is the mistake in code , could u help me to find the pbm???
> >
> > #!/usr/bin/perl
> > use strict;
> > use warnings;
> >
> > use File::Tail;
> > my $file=File::Tail->new("/some/log/file/path");
> > while (defined(my $line=$file->read))
> > {
> > print "$line";
> > }
> >
> >
> > Thanks,
> > Siva
> >
> >
