Skipping to the End of a File

[madhatter]

I know I could use an if statement and a boolean variable, but I'm sure there has to be another way to make Ovid's code to go straight to the last line, even when the file has a couple hundred lines or what have you in it already.

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

It'll print out the entire file, then start printing the last line as it is written. Ideally, this would:
A - Ignore everything except lines that are added after the program is run .. or
B - Print the last line of the file, then do its thing printing new lines.

I've tried all sorts of seeks() all over the code, to no avail. Any help would be greatly appreciated.

Thanks,
madhatter

[moen]

Check out File::Tail
Maybe that'll help you out.

[chipmunk]

Seek the documentation for seek; then you'll know how to seek to the end of a file: seek(FILE, 0, 2) or die "Can't seek: $!\n"; For more helpful advice, seek the FAQ How do I do a tail -f in perl?.

[BatGnat]

I dont know how much slower this is, than the other options, but I normally would use:

open(file,"<file.txt");
foreach (reverse <FILE>)
{
   print $_;
   last;
}
close(file);


BatGnat
This project cannot be completed successfully as we require - a shrubbery!

[danger]

That's not really an efficient solution -- it reads the entire file into memory as a list of lines and then reverses that list before entering the loop block. The previous solutions using seek() or File::Tail are better options.