Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?


by teamster_jr (Curate)
on Nov 13, 2006 at 17:51 UTC ( [id://583778] : obfuscated . print w/replies, xml ) Need Help??

this has almost certainly been done before, but i was playing around with s###eee's.

here's the result:

@d=sort{rand>.5}(b..z,A..Z);push@d,shift@d while($d[-1]ne"j");unshift@ +d,$_="a" ;while($#d>1){$_=shift@d;${$_}="\$$d[1]"}$j="print 'Just another Perl +hacker,\n' ";s#.#${$&}#eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee

Update: I should perhaps have searched. seems Book was way ahead of me. oh well. (it's new to me :) ).
++Book (5 years later!) and ++cog for pointing it out.

Replies are listed 'Best First'.
Re: eeeeeeeeeeeeeeeee!
by cog (Parson) on Nov 13, 2006 at 18:09 UTC
    BooK has beaten you by 8 e's O;-)

    Check out 59 /e.