First Japh Draft

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";
[download]

ť ./japh.pl
Just another Perl Hacker
[download]

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!

Comment on First Japh Draft Select or Download Code

Replies are listed 'Best First'.
Re: First Japh Draft by eyepopslikeamosquito (Archbishop) on Apr 12, 2024 at 05:45 UTC
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) 👁️🍾👍🦟	[reply]
Re: First Japh Draft by jdporter (Paladin) on Apr 12, 2024 at 13:36 UTC
Excellent! Well done. I think this surely counts. There are no strict rules for japhs; you're just trying to craft something impressive.	[reply]