Re: [PERL] CGI til udskrivning af et uafsluttet proggy output

["Jesper Lund" <sslug@sslug>]

Jeg skrev noget der sådan her ud:

$| = 1;
open(TAIL, "tail -f filnavn|");
    while (<TAIL>) {
    print "$_<br>\n";
 }


Og det virker FINT !

Se det i action på http://eucskp.rulerz.dk/grillhest/tail.cgi

Mvh. Jesper



----- Original Message -----
From: "Peter Makholm" <sslug@sslug>
Newsgroups: sslug.perl
To: <sslug@sslug>
Sent: Wednesday, October 11, 2000 9:50 AM
Subject: Re: [PERL] CGI til udskrivning af et uafsluttet proggy output


> "Jesper Lund" <sslug@sslug> writes:
>
> > cgi-script, som kan "taile" en fil live. Sådan forstå, at den printer
> > teksten til en browser, efterhånden som filen vokser.
>
> Der er to problemer. Dels skal du have perl til at læse uddata fra
> tail(1) og gøre noget ved det mens det produceres og dels skal du have
> browseren til at gøre noget ved perls uddata mens det kommer.
>
> Kun det første er egentligt perl-relevant:
>
> open TAIL, "tail -f filnavn|";
> while (<TAIL>) {
>   #gør noget, måske dette:
>   print;
> }
>
>
> Det andet kan måske løses ved at sætte $| = 1, før du begynder at
> skrive noget ud. Men jeg ved ikke en pind om CGI, så det må andre
> svare på.
>
> --
> Peter