Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!cs.utexas.edu!usc!zaphod.mps.ohio-state.edu!math.lsa.umich.edu!emv
From: emv@math.lsa.umich.edu (Edward Vielmetti)
Newsgroups: comp.lang.perl
Subject: Re: shortest self-reproducing Perl program
Message-ID: <EMV.90Mar20182413@duby.math.lsa.umich.edu>
Date: 20 Mar 90 23:24:13 GMT
References: <1990Mar20.203516.8429@iwarp.intel.com>
	<1990Mar20.215103.23101@agate.berkeley.edu>
Sender: news@math.lsa.umich.edu
Organization: University of Michigan Math Dept., Ann Arbor MI.
Lines: 18
In-reply-to: raymond@russet.berkeley.edu's message of 20 Mar 90 21:51:03 GMT

In article <1990Mar20.215103.23101@agate.berkeley.edu> raymond@russet.berkeley.edu (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?

the spot marked "huh?" has an ascii NUL here, run it through
cat -v or od -a to see it.

--Ed