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?
[1nickt]: If cloudy, one won;t be able to view the coron\a etc., but it will still go dark, I assume?
[1nickt]: I fear S.C. may be overcast but that's where I'll be.

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2017-07-20 16:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I came, I saw, I ...
























    Results (307 votes). Check out past polls.