Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Born by chaos

by uksza (Abbot)
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)."!";}

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 studying the Monastery: (10)
As of 2016-08-30 19:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    The best thing I ever won in a lottery was:















    Results (420 votes). Check out past polls.