Original Enough?

@ARGV=$0; $GR=@AV+$=;$_=<>;s/([^+]+)\+.+/y|$+$GR++|morenlpsk|/;eval;s/[^k]+?kk(.+)kk.+/$+/;print;

Update: Prints `perlmonks'. Runs only from its own file, code starting on first line with no extra leading spaces, obviously no #!/usr/.../perl on the first line.

What it does
Transliterates the perl code itself onto the perlmonks string. Reuses an anagram of the same characters (@ARGV=$0; to $GR=@AV..) to generate more perl code and transforms it into a y||| transliteration by using an s/// search. Also uses the fact that unmapped transliteration characters are mapped to the last of the mapped-to characters. Obfuscates the character 0 (zero) by using the $= variable whose value is usually 60 by default (`6' will map to the last transliteration character, `k', while `0' will map to `s').

I see another monk, jdalbec, has taken the time to rearrange the code in a reply.

Comment on Original Enough? Select or Download Code

Replies are listed 'Best First'.

Re: Original Enough?
by jdalbec (Deacon) on Jul 02, 2004 at 03:31 UTC

Use <code> tags to prevent line breaking at spaces.

I've broken up the statements into separate lines where possible. You may want to uncomment the extra print statements I've added and run the modified program to get a better view of what's going on. Highlight the black table to view the code.

@ARGV=$0; $GR=@AV+$=; # everything up to the + sign must be unchanged
$_=<>; # read first (only) line of file
s/([^+]+)\+.+/y|$+$GR++|morenlpsk|/; # replace entire line w/ translat
+e
# print;
eval; # self-modifying code!
# print;
s/[^k]+?kk(.+)kk.+/$+/; # get rid of everything but the magic word(s)
print$_;
[download]

[reply]
[d/l]
[select]

Re: Original Enough?
by Anonymous Monk on Jul 08, 2004 at 21:35 UTC

this is real cool. the thing i don't understand is, why $_=<> is reading the first line, not from STDIN. could you please give me a hint about this? thanks alot.