Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

No Pattern

by jmcnamara (Monsignor)
on May 21, 2002 at 14:32 UTC ( [id://168134]=obfuscated: print w/replies, xml ) Need Help??


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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: obfuscated [id://168134]
Approved by giulienk
Front-paged by jeffa
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others perusing the Monastery: (4)
As of 2024-04-25 16:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found