X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f7c81,83306d85625a3479
X-Google-Attributes: gidf7c81,public
X-Google-ArrivalTime: 2003-01-12 07:40:01 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!canoe.uoregon.edu!arclight.uoregon.edu!wn13feed!worldnet.att.net!204.71.34.3!newsfeed.cwix.com!newsfeed.icl.net!newsfeed.fjserv.net!feed.news.nacamar.de!newsfeed.stueberl.de!news.m-online.net!not-for-mail
From: daniel.t@bigfoot.de (Danijel Tasov)
Newsgroups: de.alt.rec.ascii-art
Subject: Re: ASCII Art Movie - Player
Date: Sun, 12 Jan 2003 15:40:00 +0000 (UTC)
Organization: (posted via) Mnet Telekommunikations GmbH
Lines: 40
Message-ID: <slrnb232he.207p.daniel.t@knast.camelot.de>
References: <avhjkm$fdk2j$1@ID-144284.news.dfncis.de>
 <jplo1v8f43pv4icicqkh80ipm6nq9rq7bs@4ax.com>
 <avj8da$g3ru0$1@ID-144284.news.dfncis.de>
 <avjal1$g3ru0$2@ID-144284.news.dfncis.de> <avkhf7$hv4$07$1@news.t-online.com>
NNTP-Posting-Host: knast.camelot.de
X-Trace: svr8.m-online.net 1042386000 3771 217.19.167.129 (12 Jan 2003
 15:40:00 GMT)
X-Complaints-To: abuse@m-online.net
NNTP-Posting-Date: Sun, 12 Jan 2003 15:40:00 +0000 (UTC)
User-Agent: slrn/0.9.7.1 (FreeBSD)
Xref: archiver1.google.com de.alt.rec.ascii-art:4567

Stefan Klein wrote:
> my $i     = 0;
> my $step  = 1;
> my $speed = 0.2;
> 
> system("clear");
> 
> while (<STDIN>) {
>     print $_;
>     if ( $i == $step ) {
>         select( undef, undef, undef, $speed );
>         $i = 0;
>         system("clear");
>     }
>     $i++;
> }

Hier bugfix und ein wenig optimiert:

#!/usr/bin/perl
my $i     = 0;
my $step  = $ARGV[0] || 1;
my $speed = $ARGV[1] || 0.2;
my $clear = `clear`;

print $clear;

while (<STDIN>) {
    print $_;
    $i++;
    if ( $i == $step ) {
        select( undef, undef, undef, $speed );
        $i = 0;
        print $clear;
    }
}
__END__

bye,
Da.Ta