Re: Here, doccy doccy. nice doccy. heredoc, treat.

[chipmunk]

Next you'll be wanting to quote the q() delimiters with qq(): q qq(DELIMITER)Here is my happy string!qq(DELIMITER); Sorry, you just can't do that.

On the other hand, you could get the effect of qw() with a heredoc like this:

my @list = split(' ', <<HERE);
some whitespace
separated words
HERE

[Vynce]

actually, a nitpick -- you need your heredoc to be:

my @list = split(' ', <<'HERE');
some whitespace
separated words
and possibly $a
varaiable or $2
HERE

note 'HERE' rather than HERE. qw does not interpolate.

otherise, yes, that solution does work -- for qw(). and i'm sure a similar solution could be made to work for qr//. and of course q(), qq() and qx() are all trivial (though the special case qx'' is not so trivial, as far as i can tell). but perl6 introduces new quoting mechanisms (including, i think, customizable quoting mechanisms), and i might like to be able to use heredocs with those.

although, i guess i do take your point -- the quotes around the HEREDOC delimiter are not actually being used as those quotes in that case. so maybe heredoc could have an optional second argument (don't ask me how, i'm jsut thinking out loud here) that says what quoting mechanism to use. (ok, nevermind, i'll suggest how after all) like

print <<(HEREDOC, qx);
date
df
HEREDOC

(currently, that gives this warning:

Use of bare << to mean <<"" is deprecated at everywhere.pl line 23.

so we'd not be breaking good existing uses of heredocs.)
.