recursive self modifying eval japh

$_='",",/[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
[download]

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

Replies are listed 'Best First'.
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.	[reply]
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.	[reply]
RE: RE: recursive self modifying eval japh by Anonymous Monk on Apr 26, 2000 at 17:36 UTC
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.	[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks