First Japh Draft

[BlueSquare23]

I'm a new monk. Still learning the ways. Here's my first ever stab at a japh.

#!/usr/bin/env perl
# John's first japh!
use MIME::Base64;use Compress::Zlib;$s='blue23';$p='japh';@k=split 
'',crypt($p,$s);%h=('1'=>'CEgt','Y'=>'CNk=','0'=>'UUjM','Q'=>'Ti0C
','w'=>'SEzO','l'=>'Ki0u','2'=>'SC1S','3'=>'yy/J','U'=>undef,'7'=>
undef,'x'=>'ylHw','N'=>'AG8p','b'=>'eJzz');$japh;foreach (@k){next 
unless $h{$_};$japh.=$h{$_};};print uncompress(decode_base64($japh
))."\n";

» ./japh.pl
Just another Perl Hacker

I think this counts? I'm basing my definition off of this... Wayback machine ucan.foad.org/~abigail/Perl/Talks/Japhs
Wasn't sure if external modules were allowed or what the rules were on strict mode. Still easier to read than my coworkers code!

[eyepopslikeamosquito]

G'day BlueSquare23 and welcome to the Monastery,

I see from your first two posts that you have a keen interest in the lighter side of programming. :-)

A few PM references that might further kindle your interest in this topic:

• The Lighter Side of Perl Culture (Part II): JAPH (some Abigail JAPHs from your Wayback Machine reference are displayed here)
• The Lighter Side of Perl Culture (Part III): Obfu
• The Top Ten Perl Obfus (Abigail's classic JAPH is the second most popular obfu post of all time on Perl Monks, with a Rep of 400+)
• Re: Some Help for a Report About Perl (Perl Culture and History References)
• BooK proposes a new Perl secret operator (Secret Operator References)
• Re: Does Humor Belong in Programming? (Quips and Quotes)

[jdporter]

Excellent! Well done. I think this surely counts. There are no strict rules for japhs; you're just trying to craft something impressive.