Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Obfuscated Glob

by Daruma (Curate)
on Aug 21, 2002 at 08:36 UTC ( #191672=obfuscated: print w/replies, xml ) Need Help??

Greetings, fellow Monks!

This is my second Obfuscated Perl attempt. My first Obfuscated Perl Attempt was not too terribly obfuscated. My hopes are that this is a bit more challenging to work through.

sub _{'h'};%_=('p');@_=qw(a);$_='j';$;=\*_; print ${*${;}},@{*${;}},%{*${;}},&{*${;}};

Replies are listed 'Best First'.
Re: Obfuscated Glob
by RMGir (Prior) on Aug 21, 2002 at 16:47 UTC
    Wow, that's kind of cool. It's useful as an intro to typeglobs, too...

    Maybe I like it because I've finally found a JAPH I was able to decode by inspection :)


    Basically, this sets up sub _, %_, @_, and $_ to point to letters 'h', 'p', 'a', and 'j'. %_ actually maps 'p'=>undef.

    $; is then set to a reference to *_, the typeglob for all things named _.

    The print line then prints the results of dereferencing that typeglob reference as a scalar ('j'), an array ('a'), a hash ('p' and undef, which is printed as just 'p'), and a subroutine, 'h'.

    Very cool...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://191672]
Approved by smitz
and !@monks...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (7)
As of 2017-02-22 07:25 GMT
Find Nodes?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?

    Results (325 votes). Check out past polls.