Your skill will accomplish
what the force of many cannot
Re: Pe(a)rls in line noiseby Roger (Parson)
|on Sep 15, 2003 at 06:28 UTC||Need Help??|
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!
# This is just an eye candy, an array placeholder of 7 elements
# This constructs the %; hash variable with 4 entries, namely He, do, didn't, it:
This builds another hash lookup - %:
This is really (translated to):
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).
# Another clever bit, insert the required 'do=>to' lookup pair into the hash table. How this is used will be explored later.
Translates the values to the %; hash to ",xxx,", required by the lookup below
This translation is clever:
The key-value pairs in the %: hash so far
And then... Modify the hash table %:, with values from the %; lookup.
This next bit just creates the string to be printed. :-)
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...