Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Introducing myself -featuring a JAPH

by Grimy (Pilgrim)
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
Replies are listed 'Best First'.
Re: Introducing myself -featuring a JAPH
by Ravi V (Scribe) on Aug 24, 2012 at 07:56 UTC
    nice one Grimy...

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2015-11-27 20:07 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (731 votes), past polls