Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uwm.edu!bionet!agate!ucbvax!iwarp.intel.com!news From: merlyn@iwarp.intel.com (Randal Schwartz) Newsgroups: comp.lang.perl Subject: Re: shortest self-reproducing Perl program Message-ID: <1990Mar20.233306.9280@iwarp.intel.com> Date: 20 Mar 90 23:33:06 GMT References: <1990Mar20.203516.8429@iwarp.intel.com> <1990Mar20.215103.23101@agate.berkeley.edu> Sender: news@iwarp.intel.com Reply-To: merlyn@iwarp.intel.com (Randal Schwartz) Organization: Stonehenge; netaccess via Intel, Beaverton, Oregon, USA Lines: 33 In-Reply-To: raymond@russet.berkeley.edu (Raymond Chen) In article <1990Mar20.215103.23101@agate.berkeley.edu>, raymond@russet (Raymond Chen) writes: | >Any one liners? | | [[ don't put a newline at the end ]] | | $s='$s=%c%s%c;printf$s,39,$s,39;';printf$s,39,$s,39; | | Unfortunately, it doesn't work even though it should; the output is | | $s='$s=%c%sc;printf$s,39,$s,39;';printf$s,39,$s,39; | ^ huh? | | This happens with | | $Header: perly.c,v 3.0.1.4 90/02/28 18:06:41 lwall Locked $ | Patch level: 12 | | on a VAX8700 running ULTRIX. | | Was this fixed in one of the more recent patches? With pl15, it puts out a null in place of that last percent, yup. And, it looks pretty good in other terms, so I presume that's a bug. Larry? eval <