Better "tail -f"

[Bruno Figueira]

Hi there,

I have got the example of trailing a file from "Perl Cookbook":

-----------
for (;;) {
   while (<FH>) { print $_ }
   sleep 1;
   seek(FH, 0, 1);
}
-----------

However, if another program removes (all) lines from the file referenced by
FH, perl looses the trailing (for a undetermined time). How do I improve
this code to understand the file was changed?


Cheers,

Bruno


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]