Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

First Japh Draft

by BlueSquare23 (Novice)
on Apr 12, 2024 at 03:28 UTC ( [id://11158827]=obfuscated: print w/replies, xml ) Need Help??

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!

Replies are listed 'Best First'.
Re: First Japh Draft
by eyepopslikeamosquito (Archbishop) on Apr 12, 2024 at 05:45 UTC
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.

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2024-05-19 08:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found