Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

No more art for me

by muntfish (Chaplain)
on Aug 27, 2004 at 15:49 UTC ( [id://386410]=obfuscated: print w/replies, xml ) Need Help??

OK, giving up on ascii-art. I'd like to hear what you think of this:

use strict; s;;\$fuh;;$==0;eval;print map{$=-=0x4D-ord;$@=~m;^.{$=}(.);;$1}qw;~ - +k C 8 _ G C;;

Thanks!


s^^unp(;75N=&9I<V@`ack(u,^;s|\(.+\`|"$`$'\"$&\"\)"|ee;/m.+h/&&print$&

Replies are listed 'Best First'.
Re: No more art for me
by o0lit3 (Friar) on Aug 27, 2004 at 19:52 UTC
    Don't give up so easily, muntfish. If you're willing to take a few liberties, you can still (sort of) make your code look like a fish (the outline is taken from your former post):
    #/ #/ $==0; use strict; #/ s;;\$fuh;;eval;print map {$=-=0x4D-ord;$@=~m;.{$=}(.);; $1}qw;~ - k C 8 _ G C;; use strict; #\ $==0; #\ #\
    As a side note, I think you've made an outstanding improvement from your last entry. I especially like your use of the semicolon as your regex separator and your cryptic use of the $@ variable. I have to admit, I didn't know what was going on at first glance.

      Thanks - that's great! I think perhaps code is easier to make into "shapes" than data... there's more scope for "tricks" like comments and such like. Maybe that's where I was going wrong...

      As a side note, I think you've made an outstanding improvement from your last entry

      Cheers. I've only just started looking at all the many ways of obfuscating - it's a totally different way of thinking, isn't it?

      I especially like your use of the semicolon as your regex separator

      Yeah, I wanted to use $; instead of $= as well - but I just couldn't make it work in the regexp!

      and your cryptic use of the $@ variable

      I saw that idea somewhere else, ages ago - can't remember who or where. To be honest I only tested this in v5.8.0 - no idea if it still works in other versions!

      Have a good (long, if in the UK) weekend, everyone!


      s^^unp(;75N=&9I<V@`ack(u,^;s|\(.+\`|"$`$'\"$&\"\)"|ee;/m.+h/&&print$&

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://386410]
Approved by ybiC
Front-paged by grinder
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2024-03-28 07:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found