Re: Learning from Obfuscation

[Abigail-II]

It's like "try this, or try that", or "this does this and that does this". That's all well and good, but how did you decide to try this and try that?

I addressed this in the first JAPH talk I gave. It went like First you get an idea, then you work out the details. Getting the idea can come from many sources: studying the manual page, reading Perl forums like comp.lang.perl.misc, p5p, The Perl Journal, or from IRC. If you look at my first set of slides, there's a section labelled "The making of a Japh". It discusses the process that started with seeing someone use &%%hole in a non-Perl related usenet group and ended with the Japh:

               split // => '"';
${"@_"} = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_)  {print "$_ $_{$_} "}};
%{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}};

(The code above will not always work correctly with 5.8.1 or later).

Abigail