Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Anonymous Recursive Sub

by abitkin (Monk)
on Sep 20, 2002 at 18:00 UTC ( #199551=obfuscated: print w/replies, xml ) Need Help??

Compiles with warnings, enjoy.
#!/usr/local/bin/perl -w @\=qw([q-z] [A-Z] [b-g] i [k-o] \s);$a=sub {(m&$\&&?s&$\&&&&&&$a:$_)};$b=sub{for$&( @\){&$a}$_};print&$b while(<DATA>);__END__ just add peter to the list.

Update:Fri Sep 20 14:02:34 2002
Whoops, no strict...

Update:Fri Sep 20 14:27:30 2002
Made it more obfunc...

Replies are listed 'Best First'.
Re: Anonymous Recursive Sub
by Aristotle (Chancellor) on Sep 20, 2002 at 19:32 UTC
    Somewhat weakly obfuscated - it's pretty obvious once you grok that string of ampersands, and immediately obvious if deparsed (no, I didn't; only afterwards to confirm). Nice effort though, ++. :-) (No, I'm hardly any good at obfuscation - I might have done somewhat better maybe, but only given a lot of effort.)

    Makeshifts last the longest.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2020-05-30 15:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    If programming languages were movie genres, Perl would be:















    Results (173 votes). Check out past polls.

    Notices?