Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!know!sdd.hp.com!elroy.jpl.nasa.gov!jpl-devvax!lwall
From: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Newsgroups: comp.lang.perl
Subject: Re: Bourne Shell's <<-EOF syntax (Feature Request)
Message-ID: <10439@jpl-devvax.JPL.NASA.GOV>
Date: 17 Nov 90 06:10:17 GMT
References: <JBW.90Nov17005830@bucsf.bu.edu>
Reply-To: lwall@jpl-devvax.JPL.NASA.GOV (Larry Wall)
Organization: Jet Propulsion Laboratory, Pasadena, CA
Lines: 23

In article <JBW.90Nov17005830@bucsf.bu.edu> jbw@bucsf.bu.edu (Joe Wells) writes:
: Feature request:
: 
: The Bourne shell (later versions) has this syntax:
: 
: cat <<-EOF
: 	First line
: 	Second line
: 	EOF
: 
: This would be real nice for Perl ......

$* = 1;
($foo = <<"\tEOF") =~ s/^\t//g;
	First line
	Second line
	EOF

is a fairly close approximation.  Making it do -EOF would be easy to do
for normal program text, and rather harder in evals, the way it's currently
set up.  Maybe someday...

Larry