sivasakthi wrote:
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";
}
File::Tail will read only lines that are added to the file after it has been
opened. Your program will simply sleep until something new is added.
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
