stupid perl question

I am attempting to do a "tail -f" on a log file that has a new line added to it every 15 seconds.
I need to parse and process each new line as it is added to the file.

I am trying to use the following example code from cpan to see if the basic concept will
work using File::Tail but when I run the example code below and add lines to the file
I get nothing out.

#!/usr/bin/perl

use File::Tail;
$file = File::Tail->new("/home/sad/bin/power_input_stuff.txt");
while (defined(my $line = $file->read))
{
    print $line;
}

I am doing the following in another xterm window to add lines to the file:

echo "2011:06:21:15:07:46 57 01 00 a0 04 a0 00 c3 00 a7 00 33 16 01 4e 01 00 00 00 50" >> power_input_stuff.txt

but I am getting NOTHING back in the original window where the perl script is running.

The above perl code is a near direct copy of the File::Tail example code on cpan so I would expect it to work.

What am I doing wrong???
--
Steven DuChene



---------------------------------------------------
PLUG-discuss mailing list - PLUG-discuss@lists.plug.phoenix.az.us
To subscribe, unsubscribe, or to change your mail settings:
http://lists.PLUG.phoenix.az.us/mailman/listinfo/plug-discuss