Jumping JAPH

A case of the jitters...

@b=split//,"Just another Perl hacker.";$c=$/x25;{@m=map{int rand(2)*
0.7}0..$#b;warn$c,(map{$m[$_]?$b[$_]:" "}0..$#b),$/,(map{!$m[$_]?$b[
$_]:" "}0..$#b),$/;select$x,$x,$x,.15;redo}
[download]

Dave

"If I had my life to live over again, I'd be a plumber." -- Albert Einstein

Comment on Jumping JAPH Download Code

Replies are listed 'Best First'.
Re: Jumping JAPH by Coruscate (Sexton) on Nov 29, 2003 at 08:54 UTC
Before you look at the code: I suck at obfu. I just ran the code together and made smaller variables. Nothing obfuish about it This will only work on ansi terminals that permit escape codes (clearing screen, sending cursor to home, plus cursor saving/unsaving). So if you get a long scrolling text output with strange characters at the beginning of each line, you're out of luck for this :( `$\|++;print"\e[2J\e[H\n\n";{my($o,$t);for(split//, 'Just another perl hacker'){if(int rand 2){$o.=$_; $t.=' '}else{$o.=' ';$t.=$_;}}print"\e7$o\n$t"; select undef,undef,undef,0.15;print"\e8";redo}` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re: Jumping JAPH
by Coruscate (Sexton) on Nov 29, 2003 at 08:54 UTC

Before you look at the code:

I suck at obfu. I just ran the code together and made smaller variables. Nothing obfuish about it
This will only work on ansi terminals that permit escape codes (clearing screen, sending cursor to home, plus cursor saving/unsaving). So if you get a long scrolling text output with strange characters at the beginning of each line, you're out of luck for this :(

$|++;print"\e[2J\e[H\n\n";{my($o,$t);for(split//,
'Just another perl hacker'){if(int rand 2){$o.=$_;
$t.=' '}else{$o.=' ';$t.=$_;}}print"\e7$o\n$t";
select undef,undef,undef,0.15;print"\e8";redo}
[download]

[reply]
[d/l]