Beefy Boxes and Bandwidth Generously Provided by pair Networks Cowboy Neal with Hat
No such thing as a small change
 
PerlMonks  

recursive self modifying eval japh

by Anonymous Monk
on Mar 13, 2000 at 20:04 UTC ( #5307=obfuscated: print w/ replies, xml ) Need Help??

$_='",",/[J|]$/?m)^.J)?(m~"(.+?)"~):s](^(.)(.*\)\?p.*)|(\)\?)(.' .'*))\|(.)]$4$2$6$3$5|]<<eval:s<([\w -%])(?=[^|]*$)><pack+q*c*,' .'(ord$1)-++$i%3>eg!~eval#@|xslvuuipfem#pwht%uimwssd$yvyO'=>eval

it runs quite many times... how many is left as an excercise to the reader

/dh

Comment on recursive self modifying eval japh
Download Code
RE: recursive self modifying eval japh
by turnstep (Parson) on Apr 04, 2000 at 07:38 UTC
    Very devious. I like it. The evals are a nice touch.
RE: recursive self modifying eval japh
by Anonymous Monk on Apr 22, 2000 at 04:45 UTC
    I only sort of understand this code. Ok, I don't even come close... I get the first step, that you are seting the $_ var to this scalar, and then calling eval on it. Ok, but I don't understand the scalar, I see the two line break concatenations, but I don't see how you can have a close parens without an open parens. I suppose this is why we call it obfuscated, but I would very much appreciate it if some one could offer some clarification, as I think it might be useful to me. Thanks.
      I don't see a closing parens - I just see some very tricky matching delimeters *smirks* I hope this hint will lead you into the right direction.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: obfuscated [id://5307]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (9)
As of 2014-04-17 05:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (439 votes), past polls