Anonymous Recursive Sub

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.
[download]

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

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

Comment on Anonymous Recursive Sub Download Code

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.	[reply]