Yes, I know I've been spitting out japhs like crazy. To tell you the truth, I have nothing else to do. It's a sad story. In any case, this one should give the new monks some brainache.
sub q{ return($ARGV[1]); }
print q(JAPH);

[download]

Replies are listed 'Best First'.
Re: Illusionism
by premchai21 (Curate) on Sep 11, 2001 at 23:13 UTC
    It doesn't work. syntax error at line 1, near "];"
[reply]
[d/l]
Re: Illusionism
by higle (Chaplain) on Sep 11, 2001 at 23:42 UTC
    left out the closing ")" in your return statement.

    hig
[reply]
Re: Illusionism
by acid06 (Friar) on Sep 12, 2001 at 04:47 UTC
    Besides the syntax error, the first line is completely useless... the second line does all the job printing "JAPH"...

    acid06
    perl -e "print pack('h*', 16369646), scalar reverse $="
[reply]
      Yes.
[reply]

Back to Obfuscated Code