> On Thu, May 09, 2002 at 08:14:29PM +0100, Jonathan E. Paton wrote: > > > 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.*)/ > > Ronald > > P.S. Shouldn't you start counting at 1? :) >
further shaving, though it's all lowercase. perldoc perlfaq1: What is a JAPH? print`perldoc -qj`=~/"(j.*)"/
