#!/usr/bin/perl
$_="0123456789";$_=$^X.' '.lc((split/\s/,(scalar
(localtime(substr$_,3,6))))[0]).pack("C*",(eval(
length$_).substr($_,7,1)),(join'',(split"",$_)[1
,1,5]));print"\u$_\n";

[download]

Replies are listed 'Best First'.
RE: My obfuscation debut (part II ;)
by Maqs (Deacon) on Jun 02, 2000 at 16:49 UTC
    Oops! I'm very sorry! The error in my script coused this. It must be 'Perl Monks' of course! My interpreter gives me it in a right way :( Pity.
    /Maqs.
[reply]
RE: My obfuscation debut (part II ;)
by jjhorner (Hermit) on Jun 01, 2000 at 22:24 UTC

    If that had been spelled like I think you meant, that wouldn't have been cool.

    J. J. Horner
Linux, Perl, Apache, Stronghold, Unix
jhorner@knoxlug.org http://www.knoxlug.org/
[reply]
      You said it that way that i made something hmm... strange. If so, I'm sorry. I have no any other ideas except of training myself in perl. :[

      /Maqs.
[reply]
        Well, there are much better ways to endear yourself to a perl community than to post an obfusicated script that outputs "Perl sunks," which could be interpreted as "Perl sucks."

        However, giving you the benefit of the doubt, it could also be interpreted as "Perl monks."

[reply]

Back to Obfuscated Code