Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Glob in the JAPH

by Eily (Prior)
on Jun 17, 2013 at 23:00 UTC ( #1039485=obfuscated: print w/replies, xml ) Need Help??

This morning, the weather was quite warm and sunny, so I decided to take my bike to go to work. I didn't bother looking what it would be like in the evening. So I ended up in front of my computer, waiting for the rain to stop falling long enough for me to come back home, because I hadn't thought about taking a jacket. To pass the time, I made this:

($R,$B)=(q, another,,q( Perl hacker,),$a=Just);$, =$V;m;(.)\(\)?;;*V=$::{$1};$\=$V;BEGIN{$|;$_=\$:: {b};m;(.)\(\)?;;*V=$::{$1}}print @$_ for [$a,$b],

My favorite JAPHs are those where the printed text isn't already obvious in the code. So I could have added some encryption or something to this one, but I thought I should rather stick to one main concept (concept I stumbled upon by accident) and shape (quite literally) this script around it. I still used some other obfuscations here and there to prevent the whole script from being too obvious, and to make it fit in a rectangle.

It does not run under strict, and warnings may make it easier to understand.

Replies are listed 'Best First'.
Re: Glob in the JAPH
by Grimy (Pilgrim) on Jun 18, 2013 at 20:24 UTC

    Nice one (:

    I actually had to run it to understand where this B comes from.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://1039485]
Approved by Athanasius
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2018-06-25 03:30 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.