Re: [FWP] Shortening

["Keith Calvert Ivey" <kcivey@cpcug.org>]

Robin Houston <robin@kitsite.com> wrote:

> Some people at MIT have written a CSS descrambler in a
> short (and rather obfuscated) Perl script. It's at
> http://www.cs.cmu.edu/~dst/DeCSS/Gallery/qrpff.pl
> 
> I wonder how short it could really be made. I can
> already see a way to shave two bytes from the beginning
> by using $/=\2048 but I'm sure more subtle contractions
> are possible.

I found another way to save two bytes, by replacing each of 
the 12 occurrences of $_ in the string with ! and then adding 
s/!/\$_/g; before the eval.  But your replacement removes one 
occurrence of $_, so the combined savings is only three bytes.

-- 
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe