Hm. I understand the first part of what you ask, the thing about reading the
whole file and see whether the last line begins by tftpd or not. This should
work like this - although it's not _too_ elegant <g>:
#!/usr/bin/perl -w
open SYSLOG, "<cygwin_syslog.txt" || die "can't open: $!";
while (<SYSLOG>) {} # do nothing until the last line is there!
chomp;
if /^tftpd/
{
# place any code here that depends on the
# last line beginning by tftpd
}
- but concerning the progress bar, I don't understand well what you mean.
Sascha
----------
>Von: Jorge Goncalvez <[EMAIL PROTECTED]>
>An: [EMAIL PROTECTED]
>Betreff: Re: Parsing a file
>Datum: Don, 19. Jul 2001 12:03 Uhr
>
> Hi, I must parse a file :c:\cygwin_syslog.txt which is growing
>
> I must see the last line:
> if it begins by tftpd I must implement a variable to make a progress bar
growing
> to 0 to 100 %.
>
> How can I do that?
>
> Thanks.
>
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
