Re: Yet Another JAPH


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

Re: Yet Another JAPH

by K_M_McMahon (Hermit)

on Feb 22, 2005 at 00:15 UTC ( [id://433205]=note: print w/replies, xml )

Need Help??

in reply to Yet Another JAPH

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]

Comment on Re: Yet Another JAPH Select or Download Code

In Section Obfuscated Code

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://433205]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others perusing the Monastery: (4)

As of 2025-01-21 22:56 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?