A First - Please Comment

I realize that this isn't very obfuscated at all, and I am not posting it as a show-off: instead, I want to learn more about obfuscation and figured if I posted it I would get some help. So PLEASE, tear it apart - just be nice :-).

$=-=(1<<6)-4;while(<DATA>){@.=split/#/;for(@.){
$;[$=].=$_;$=++;}}for(@;){print chr hex;}__DATA__
4a#75#73#74#20#41#6e#6f#74#68#65#72
20#50#65#72#6c#20#48#61#63#6b#65#72
[download]

Comment on A First - Please Comment Download Code

Replies are listed 'Best First'.
Re: A First - Please Comment by nashdj (Friar) on Dec 05, 2000 at 16:28 UTC
Personally I like being as short as possible :) `$/=-1,print map(chr hex,split(/#\|\n/,<DATA>))` Unfortunately short in this case is rather readable, so its not so great. I really like your use of $= and $; they really play tricks on the eyes. I would recommend that you Abuse and confuse with map Try encoding your data in different ways, it gets very familiar seeing japh text in decimal and hex :) Throw in a couple of naked blocks just for the sake of it Venture deeper into perl, and use things that you have never seen before, and mignt never use again. But you would be suprised, I personally find this a great way to learn the guts of perl. - nashdj	[reply] [d/l]

Replies are listed 'Best First'.

Re: A First - Please Comment
by nashdj (Friar) on Dec 05, 2000 at 16:28 UTC

$/=-1,print map(chr hex,split(/#|\n/,<DATA>))

Unfortunately short in this case is rather readable, so its not so great.

I really like your use of $= and $; they really play tricks on the eyes.

I would recommend that you

Abuse and confuse with map
Try encoding your data in different ways, it gets very familiar seeing japh text in decimal and hex :)
Throw in a couple of naked blocks just for the sake of it
Venture deeper into perl, and use things that you have never seen before, and mignt never use again. But you would be suprised, I personally find this a great way to learn the guts of perl.

nashdj

[reply]
[d/l]