>>>>> "Rob" == Rob Dixon <[EMAIL PROTECTED]> writes:
I got your code running nicely, although I had to make a small change due to
an older Perl (5.004) I am using:
[...]
Rob> You need to close and reopen the file if you want to check for a rename.
Rob> Something like the program below.
Which actually emulates "tail f-" nicely, since it notices a filename
change and exits, on contrary of "tail -f" which has to be killed.
Rob> use strict;
Rob> use warnings;
Rob> use IO::Handle;
Rob> autoflush STDOUT;
Rob> use Fcntl qw(:seek);
Removed line, as seek is not yet a tag in earlier Perl.
Rob> my $file = 'junk.txt';
Rob> my $pos;
Rob> while (1) {
Rob> open LOG, $file or die "Cannot open $file, $!";
Rob> seek LOG, $pos, SEEK_SET if defined $pos;
seek LOG, $pos, 0 if defined $pos;
Rob> print while <LOG>;
Rob> $pos = tell LOG;
Rob> close LOG;
Rob> sleep 1;
Rob> }
Tx a lot, Rob!
--
Claude
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
