note
Roger
Hi Liz, this is my attempt at decoding this clever JAPH, in fact my first attempt at decoding any JAPH, so please correct (and forgive) my analysis if wrong! <br><br>
<code>
@; = (491036,8051555,4785250,3341086,912133,189089,691108);
</code>
# This is just an eye candy, an array placeholder of 7 elements<br>
<code>
%; = qw/
He
didn't,Just
do
to,Perl
didn't
understand,another
it
would,hacker!
/;
</code>
# This constructs the %; hash variable with 4 entries, namely He, do, didn't, it:<br>
<code>
He => didn't,Just
do => do,perl
didn't => understand,another
it => would, hacker!
</code>
<code>
%: = qw/
================================= ==================================
Randal said it would be tough to do in sed. He didn't say he didn't
understand sed. Randal understands sed quite well. Which is why he
uses Perl. :-) -- Larry Wall in <7874@jpl-devvax.JPL.NASA.GOV>
================================= ==================================
/;
</code>
This builds another hash lookup - %:<br>
<code>
{ # required by redo, where to start for the redo
/./ ? eval(join 't, ', qw:prin exi delphi:) : /./;
</code>
This is really (translated to):<br>
<code>
/./ ? { print, exit, delphit, } : /./;
</code>
or just<br>
<code>
/./ ? { print, exit, } : /./;
</code>
Clever, the first time this loop is enterred, $_ is undef, so the print and exit is not performed. delphit would have no effect (after the exit).<br>
<code>
$:{do} = 'to';
</code>
# Another clever bit, insert the required 'do=>to' lookup pair into the hash table. How this is used will be explored later.
<code>
@; = map { join ',', '', $_, '' } values(%;);
</code>
Translates the values to the %; hash to ",xxx,", required by the lookup below<br>
This translation is clever:<br>
The key-value pairs in the %: hash so far<br>
<code>
He => didn't
didn't => understand
do => to # manually inserted before
it => would
</code>
And then... Modify the hash table %:, with values from the %; lookup.<br>
<code>
eval '$:{q?'.$_.'?}=~s'.shift@; for keys(%;);
</code>
So that:<br>
<code>
He => Just
didn't => another
do => Perl
it => Hacker!
</code>
This next bit just creates the string to be printed. :-)<br>
<code>
$_ = qq{@{[@:{qw{ He didn't do it }}]}};
</code>
The next bit goes back to the beginning of the loop, with $_ set to "Just another Perl hacker!", and of cause the print, exit, code will take over from there...
<code>
redo } x:
</code>
291267
291267