Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Just another (ok, really my first) perl hack

by mikeB (Friar)
on Oct 06, 2001 at 01:23 UTC ( #117116=obfuscated: print w/ replies, xml ) Need Help??

;;$ x = time ;;$ u=q /x/ ;;; my$ y;$ x = 'l' ;;$ z =24 /2; ;;@ O= map { $ y. &$x ($ s , $_) } grep ! /5/ , reverse unpack "a$ z"x $z, <<_ 2513928482101100200304450009630872414010000029520110520395090000092317 +27953215528852001789748089000009144872 _ ;;; sub l{$ y . localtime pop };; print map { $ y .lc } unpack ( "$u$_ a" , pop @ O ) for ((($z/3),(2*$z-3-(8*2+cos(0)))),(+6,(atan2(0,0)+1)));

Comment on Just another (ok, really my first) perl hack
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (5)
As of 2014-12-28 17:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (182 votes), past polls