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

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";
./ Just another Perl Hacker
I think this counts? I'm basing my definition off of this... Wayback machine
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?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://11158827]
Approved by kcott
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
Find Nodes?
    Voting Booth?

    No recent polls found