Re: [Perl-unix-users] RE: tail a file [was: subscriber]

[Frank75063]

Hi All,

 

Please do not mail to my email address anymore.

 

Thanks,

"Thomas, Mark - BLS CTR" <[EMAIL PROTECTED]> wrote:

The default setting of File::Tail behaves the way you want. Perhaps that is
an easier solution.

- Mark.

> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On
> Behalf Of [EMAIL PROTECTED]
> Sent: Tuesday, February 22, 2005 9:03 AM
> To: perl-unix-users@listserv.ActiveState.com
> Subject: Re: [Perl-unix-users] subscriber
>
>
> I use the following to tail a growing file and exist on key
> hit. This code is pretty much straight from the Perl CD
> Bookshelf. I'd like to know how I could possibly seek to the
> last line of the file ~at the time of execution~ so as to not
> have to print the whole file each time this program is run.
> This would be useful against very large! files of course. Even
> the current eof line pos - 100 lines at the time of execution
> would work. Thanks for any tips.
>
>
>
>
> use Term::ReadKey;
> use IO::Handle;
>
> my $key;
> my $nohupfile="nohup.out";
>
> open (NOHUPFILE, $nohupfile) or die "can't open $nohupfile:
> $!"; while (!$key) {
> $key=ReadKey(-1);
> if ($key) {
> last;
> }
> while () {
> print
> }
> if (!$key) {
> sleep 1;
> } else {
> last;
> }
> NOHUPFILE->clearerr();
> }
>
>
> _______________________________________________
> Perl-Unix-Users mailing list Perl-Unix-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>

_______________________________________________
Perl-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

---

Do you Yahoo!?
Yahoo! Search presents - Jib Jab's 'Second Term'

_______________________________________________
Perl-Unix-Users mailing list
Perl-Unix-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs