Perl Monk, Perl Meditation | |
PerlMonks |
Re: Careful Evaluationby Brovnik (Hermit) |
on Jun 15, 2001 at 01:07 UTC ( [id://88629]=note: print w/replies, xml ) | Need Help?? |
I dare somebody to deconstruct it :)
OK. First, tidy up syntax and delimiters and rename some variables. The commented lines aren't needed if the q|| are on one line. So, (this is easier to read starting from the bottom of the tidied code) the first 3 evals set $_ to $a and then $b then eval the unpack inside $b. The unpack produces $_='$_=q!($_)=($$=~/.*/g)!';, which, after
3 more iterations sets $_ to $$ (the unpack on the first line).
Hope that is sufficient explanation.
In Section
Obfuscated Code
|
|