> > > Just to save some of you experiementers some time, I'll share a failed > > > attempt. In hindsight, it's pretty obvious that it should fail, but I > > > felt like trying it anyway: > > > > > > perl -MCompress::Zlib -e'print compress"Just another Perl hacker,"' > > > > > > yields a 33 byte "compressed" version of the string. So, you'd need a > > > program of length -1 to uncompress and print it. Back to the drawing > > > board... > > > > Okay, here is an even less sucessful approach: > > > > 0 1 2 3 > > 012345678901234567890123456789012345 > > > > print`perldoc perlembed`=~/= (J.*)/m > > > > print`man perlembed`=~/(Ju.*)/
Doh! Should have remembered that POD is converted into manpages. I always use perldoc, which is more portable. The regex variation had already been spotted, and I've just stuffed it into my .sig > P.S. Shouldn't you start counting at 1? :) Hmm... interesting point :P Jonathan Paton ===== ---------------BEGIN GEEKCODE BLOCK-----------v3.12 GCS/E d+ s+: a20 C++(+++)>$ UHL++>+++ P+++ L++>++++ E- W++(-) N+ o? K- w--- !O M-- !V PS-- PE++ Y++ PGP t@ 5-- X-- R- tv- b DI+ D- G++ e h! !r--->++ !y--- ----------------END GEEKCODE BLOCK----------------- JAPH: print`perldoc perlembed`=~/(Ju.*)/m,"\n" __________________________________________________ Do You Yahoo!? Everything you'll ever need on one web page from News and Sport to Email and Music Charts http://uk.my.yahoo.com
