This is from Abigail's JAPH talk at YAPC. I thought I would share it here because it rocks. It isn't obfuscated (well, it is, but not overtly), but is cool because it has: 

perl -Mstrict -we '$_ = "goto F.print chop;\n=rekcaH lreP rehtona
+ tsuJ";F1:eval'

[download]

I hope people who went to YAPC got to see this talk, and didn't have a headache when leaving :)

Cheers,
KM

Replies are listed 'Best First'.
RE: Cool JAPH
by Ovid (Cardinal) on Jun 26, 2000 at 21:14 UTC
    When I try to run this, I get 
    Can't find string terminator "'" anywhere before EOF at -e line 1.

    [download]
    I can see that final string terminator on my screen; Perl just keeps telling me that it's not there :( I tried both typing in the code and cutting and pasting. Is this perhaps something funky about my version of Perl?

    I am running perl 5.005_03 from Active State.

    Update: Thanks, KM!

[reply]
[d/l]
      For the OS impaired, use the following because AS Perl doesn't generally like ' encapsulating a one liner..:

      perl -Mstrict -we "$_ = qq(goto F.print chop;\n=rekcaH lreP rehto
+na tsuJ);F1:eval"

      [download]

      Cheers,
      KM

[reply]
[d/l]

Back to Obfuscated Code