Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

Re: japhy's 2nd obfuscation review

by tlhf (Scribe)
on Aug 26, 2001 at 07:31 UTC ( [id://107891]=note: print w/replies, xml ) Need Help??


in reply to japhy's 2nd obfuscation review

I liked your 'delightful' one :) Took me a while to figure it out, but it's a bit sneaky in that's it almost all trickery magic. I got the obfuscated bit down too:
($^X ) = ($^X ) =~ m/^ |perl|;/g; @XX = '3"; ' ^ (per); ($^X ) =~ s/[perl]{4}/@XX/; print("$^X\n");
The CGI bit comes from matching the '3"; ' ^ (per);. I especially liked the first $g or die, took me a while to realise the whole thing was a match starting with the $ on line 4.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://107891]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others imbibing at the Monastery: (3)
As of 2024-03-28 17:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found