'perldoc -q tail' might help you, if no perldoc installed here is from perlfaq5
How do I do a "tail -f" in perl?
First try
seek(GWFILE, 0, 1);
The statement "seek(GWFILE, 0, 1)" doesn't change the current p
+osition, but it does clear the end-of-
file condition on the handle, so that the next <GWFILE> makes P
+erl try again to read something.
If that doesn't work (it relies on features of your stdio imple
+mentation), then you need something
more like this:
for (;;) {
for ($curpos = tell(GWFILE); <GWFILE>; $curpos = tell
+(GWFILE)) {
# search for some stuff and put it into files
}
# sleep for a while
seek(GWFILE, $curpos, 0); # seek to where we had bee
+n
}
If this still doesn't work, look into the POSIX module. POSIX
+defines the clearerr() method, which
can remove the end of file condition on a filehandle. The meth
+od: read until end of file, clearerr(),
read some more. Lather, rinse, repeat.
There's also a File::Tail module from CPAN.
but the data transfer over NFS will not be live, there would be minimal delay if you expect live data. |