Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: My first Obfuscated Perl Attempt

by mtve (Deacon)
on Aug 07, 2002 at 07:50 UTC ( #188249=note: print w/replies, xml ) Need Help??


in reply to My first Obfuscated Perl Attempt

silly variation:
eval pack'B*','~___~$$$$###$~_~~_#$#$$#$##$###~~__#$#$~~~_~~~$$$#__~~~ +~~__ ~~~_~__~~~_#$##~_~_#$$#~~###$_~~~$#$$~_~_~_~$$#$~_##$$_~__~~~#$$#~_~~_ +__ _~_~_~_~~__$###~_~$$#$~~~~#$##~__#$$#~~____~###$_~$$#$~_~~~~_#$$#~_~_ ####_~_~_~$$$$~__$$$$$#$#$$#$$#_~##$$$#$#####$_~~_$$$$##$$$$#$#$$~~__~ +__~_ _#$$##$$$$$##_~~#$$$__~~~~~~##$$~$$$#_~~~~~~__~~~_$$##~~~_~~_#$$$~~~__ +~~~_'

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://188249]
help
Chatterbox?
[belg4mit]: yes. the regular expression is generated in code from a text file. that s the regular expression that Perl blows up when it reaches it, but if I use it from the comman line it's fine
[belg4mit]: oh, wait, damn, different lne number
[choroba]: same Perl version?
[choroba]: oh, ok
[belg4mit]: I had \Q'd in one RE but not a subsequent one, doh
[talexb]: Programs writing programs. Neat stuff.

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2017-04-25 16:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I'm a fool:











    Results (460 votes). Check out past polls.