Can you see the pattern? 
    $_ = 'Nothing up my() sleeve';

    s 1.*11||11*.1;

    s||$&Just$"||s||$&Another$"||s||$&Perl$"||s||$&Hacker$/||g;

    print;

[download]

--
John.

Replies are listed 'Best First'.
Re: No Pattern
by jmcnamara (Monsignor) on May 22, 2002 at 08:55 UTC

    This is an easy one. It falls into the category of obfuscation that I like best: the use of simple or surprising features. In that respect there is only one feature in this code and it may be obvious or it may not be.

    With the cloaking devices turned off the code looks like this: 

        $_ = "Some string here";

    s/.*//;

    s//$&Just /;
    s//$&Another /;
    s//$&Perl /;
    s//$&Hacker\n/;

    print;

    [download]

    The trick in this code is highlighted by the question; what pattern is matched in the last four s///'s?

    --
    John.

[reply]
[d/l]

Back to Obfuscated Code