Yet Another JAPH

use Time::HiRes qw(sleep);
my $japh = "\112\165\163\164\040\141\156\157\164\150\145\162\040\120\1
+45\162\154\040\110\141\143\153\145\162";
map{print `clear`,"$japh\n";$japh = " ".$japh;$japh =~ s/^\s+// if($_ 
+% 70==0);sleep(.05);}(0..1000)
[download]

Comment on Yet Another JAPH Download Code

Replies are listed 'Best First'.
Re: Yet Another JAPH by K_M_McMahon (Hermit) on Feb 22, 2005 at 00:15 UTC
Nice concept, but the `clear` command does not work in windows environment only in nix. Following will work for windows: #!/usr/bin/perl use Time::HiRes qw(sleep); my $japh = "\112\165\163\164\040\141\156\157\164\150\145\162\040\120\1 +45\162\154\040\110\141\143\153\145\162"; map{ `cls`;print"$japh\n";$japh = " ".$japh;$japh =~ s/^\s+// if($_ % +70==0);sleep(.05);}(0..1000) [download] There are ways to make it system independent... Re: How do you clear the screen? cursor placement/clear screen in DOS window -Kevin `my $a='62696c6c77667269656e6440676d61696c2e636f6d'; while ($a=~m/(^.{2})/s) {print unpack('A',pack('H',"$1"));$a=~s/^.{2}//s;}` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re: Yet Another JAPH
by K_M_McMahon (Hermit) on Feb 22, 2005 at 00:15 UTC

`clear`

#!/usr/bin/perl
use Time::HiRes qw(sleep);
my $japh = "\112\165\163\164\040\141\156\157\164\150\145\162\040\120\1
+45\162\154\040\110\141\143\153\145\162";
map{ `cls`;print"$japh\n";$japh = " ".$japh;$japh =~ s/^\s+// if($_ % 
+70==0);sleep(.05);}(0..1000)
[download]

Re: How do you clear the screen?

cursor placement/clear screen in DOS window

-Kevin

my $a='62696c6c77667269656e6440676d61696c2e636f6d';
while ($a=~m/(^.{2})/s)
{print unpack('A',pack('H*',"$1"));$a=~s/^.{2}//s;}
[download]

[reply]
[d/l]
[select]