>From CPAN
(http://www.cpan.org/modules/by-module/File/File-Tail-0.98.readme):
The File::Tail module is designed for reading files which
are continously appended to (the name comes from the tail -f
directive). Usualy such files are logfiles of some
description.
--
Mark Thomas [EMAIL PROTECTED]
Sr. Internet Architect User Technology Associates, Inc.
$_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
> -----Original Message-----
> From: Jorge Goncalvez [mailto:[EMAIL PROTECTED]]
> Sent: Monday, October 15, 2001 4:14 AM
> To: [EMAIL PROTECTED]
> Subject: Re:Read on a file the last lines
>
>
>
> Hi , I made a Perl Tk program which could parse a log file it
> works but I wanted
> to improve my code with reading only the new lines I wanted
> to do a kind of Unix
> tail -f but I am under Windows I have this code:
> open INFILE, "< $_Globals{SYSLOG}" or die "Cannot open
> $_Globals{SYSLOG} for
> reading: $!";
> while (<INFILE>) {
> chomp();
>
> /(DHCPDISCOVER) / && do {
> $_Globals{PROGRESS_VALUE} = 0.79;
> $_Globals{PROGRESS_STRING} = "DHCP_DISCOVER";
> label_percent();
>
> };
> /(DHCPOFFER)/ && do {
> $_Globals{PROGRESS_VALUE} = 1.58;
> $_Globals{PROGRESS_STRING} = "DHCP_OFFER";
> label_percent();
> };
> /DHCPREQUEST/ && do {
> $_Globals{PROGRESS_VALUE} = 2.38;
> $_Globals{PROGRESS_STRING} = "DHCP_REQUEST";
> label_percent();
> };
> /DHCPACK/ && do {
> $_Globals{PROGRESS_VALUE} = 3.17;
> $_Globals{PROGRESS_STRING} = "DHCP_ACK";
> label_percent();
> };
> /read request for/ && do {
> #i.e on a une requete tftpd
> $_Globals{PROGRESS_VALUE} = 3.96;
> $_Globals{PROGRESS_STRING} = "TFTPD";
> label_percent();
> };
> /ANONYMOUS FTP LOGIN FROM/ && do {
> #i.e on a une requete ftpd
>
> $_Globals{PROGRESS_VALUE} +=0.79;
> $_Globals{PROGRESS_STRING} = "FTPD";
> label_percent();
> }
>
>
> How can I do ?
> Thanks.
>
>
>
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
