in reply to Text Animation in Perl

Here's a impressive site that does some pretty cool text animation http://osfameron.perlmonk.org/chickenman

Plankton: 1% Evil, 99% Hot Gas.

Replies are listed 'Best First'.
Re: Re: Text Animation in Perl
by eserte (Deacon) on May 07, 2004 at 17:30 UTC
    Another simple(-minded) solution is to just clear the screen before each refresh. You can find the clear string with the following code: 
    my $clearchr;
if (eval { require Term::Cap }) {
    my $terminal = Tgetent Term::Cap { TERM => undef };
    $clearchr = $terminal->Tputs("cl");
}
if ($clearchr eq '') {
    $clearchr = `clear`;
}

    [download]
    Disclaimer: this will work on Unix, no idea about Windows or other OSes.
[reply]
[d/l]

In Section Seekers of Perl Wisdom