Path: utzoo!attcan!uunet!van-bc!ubc-cs!phillips
From: phillips@cs.ubc.ca (George Phillips)
Newsgroups: comp.lang.perl
Subject: Re: shortest self-reproducing Perl program
Message-ID: <7295@ubc-cs.UUCP>
Date: 26 Mar 90 23:24:00 GMT
References: <1990Mar20.203516.8429@iwarp.intel.com> <7490@jpl-devvax.JPL.NASA.GOV> <7494@jpl-devvax.JPL.NASA.GOV>
Sender: news@cs.ubc.ca
Organization: University of British Columbia, Vancouver, B.C., Canada
Lines: 18

In article <7494@jpl-devvax.JPL.NASA.GOV> lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall) writes:
>
>Here is a one-liner.  There may be shorter one-liners.
>
>$_=q $_=qx;s/x/$"$_$"/;print ;s/x/$"$_$"/;print

How about:

$_=q	print"\$_=q\t$_\t;eval"	;eval

The spaces are tabs, no newline at the end.  There's also its more printable
cousin:

$_='print"\$_=\47$_\47;eval"';eval

But the 2 digit octal sequences seem kinda bogus.

George Phillips phillips@cs.ubc.ca {alberta,uw-beaver,uunet}!ubc-cs!phillips