Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Introducing myself -featuring a JAPH

by Grimy (Monk)
on Jun 03, 2011 at 17:05 UTC ( #908025=obfuscated: print w/ replies, xml ) Need Help??

Howdy Monks!

I discovered Perl exactly 3 days ago in the goal of writing a simple pre-compiler, because Flex compiler is really stupid (but that's another topic). I was instantly enthralled by this wonderful language, so much that I forgot my initial project and spent a sleepless night working on a JAPH. A common case, I suppose.

Here's the result of this:

#!/usr/bin/env perl -w -0466 use strict;use Digest::SHA open(F,$0),q\sha\.(($/=<F>)!~s?!.{50}!?!!?? 0:512);print+substr($/=sha512($/),$_,1)for(map{$!=95^ord;$%++%2?$!:map {64}1..$!}q!WU\x[c]T^|M~_j^Y]]_z_PTi]o_{^`\b_|^JWU^]_u^{_{\|[@!=~?.?g)
It won't work as a one-liner: to run it, you have to store it into a file. Be careful when pasting however: adding a newline after the final parenthesis will break it (that's an obvious clue).

Have fun!

Arrgh! Woe, despair! My nice and pretty rows had been unspeakably split by the forum's felonious formatting! Now rewritting it to fit in 70 columns. EDIT: Done.

PS: Please, be so kind as to let me know what you think about it.

Comment on Introducing myself -featuring a JAPH
Download Code
Re: Introducing myself -featuring a JAPH
by Ravi V (Scribe) on Aug 24, 2012 at 07:56 UTC
    nice one Grimy...

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (7)
As of 2014-08-23 09:26 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (173 votes), past polls