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
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
