Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

VU japh

by xiper (Friar)
on Oct 23, 2003 at 01:26 UTC ( #301441=obfuscated: print w/replies, xml ) Need Help??

Just something i whipped up in a lunch break... nothing terribly complex.
$-=80;$;="Just another Perl hacker";$==$|++;$---;while ($->length$;){$=+=(-3.2+rand 7)*rand 6;if($=>$--2-length ){$==$--2-length}elsif($=<$,){$==$,}if($.&&$===($--2-length )){$_=$..$_;$.=$,;$%=$]if!$;}select$,,$,,$,,0.03;if(!$.&&$=<( $--length)*.6){$.=chop$;;if($.eq$"){$_=$..$_;$.=chop$;}$~=$*=$,} if($=>$~){$~=$=;$*=$,}elsif($~-1>$=&&$*>10){$~--}$*++;print"\b"x$-, ':'x$=,$"x($~-$=),$.?$.:$",$"x($--$~-1-length$_),$_,$%?$/:$,;$%&&last}
The first two var's (column width & message) can be modified to suit.

- ><iper

use japh; print;

Replies are listed 'Best First'.
Re: VU japh
by Roger (Parson) on Oct 23, 2003 at 07:04 UTC
    Interesting concept. Well done.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://301441]
Approved by blokhead
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2023-02-07 18:54 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (40 votes). Check out past polls.

    Notices?