Beefy Boxes and Bandwidth Generously Provided by pair Networks DiBona
XP is just a number
 
PerlMonks  

Born by chaos

by uksza (Monsignor)
on Aug 19, 2005 at 07:21 UTC ( #485034=obfuscated: print w/ replies, xml ) Need Help??

My first JAPH...
(works with use strict and warnings of course)
#!/usr/bin/perl $|=1;print" ";for(qw(74 117 115 116 32 65 110 111 116 104 101 114 32 80 101 114 108 32 72 97 99 107 101 114)){until (int(rand(54321))==$_){print"\b".(qw[| \ - /][$?++]);$?== 4?$?=0:();}print"\b".(chr)."!";}

Comment on Born by chaos
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (12)
As of 2014-04-17 15:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (451 votes), past polls