Re^6: Is a here-doc a good way to retrieve data file contents for testing? (updated)

I'm pretty sure that this behaviour is intentional and has been a long time in Perl and will stay.

I agree, and I think the fact that the here-doc starts on the next line and not immediately following the opening expression follows from these examples in perlop, present since Perl 5.8.0 (the final example was eventually dropped in favor of indented here docs):

   print <<"foo", <<"bar"; # you can stack them
I said foo.
foo
I said bar.
bar

   myfunc(<< "THIS", 23, <<'THAT');
Here's a line
or two.
THIS
and here's another.
THAT
[download]
Just don't forget that you have to put a semicolon on the end to finish the statement, as Perl doesn't know you're not going to try to do this:
   print <<ABC
179231
ABC
   + 20;
[download]
If you want your here-docs to be indented with the rest of the code, you'll need to remove leading whitespace from each line manually:
($quote = <<'FINIS') =~ s/^\s+//gm;
   The Road goes ever on and on, 
   down from the door where it began.
FINIS
[download]

Comment on Re^6: Is a here-doc a good way to retrieve data file contents for testing? (updated) Select or Download Code

Replies are listed 'Best First'.
Re^7: Is a here-doc a good way to retrieve data file contents for testing? (updated) by haj (Vicar) on Jan 17, 2021 at 09:33 UTC
Edited: Scratch that. haukex has already mentioned this. If you want your here-docs to be indented with the rest of the code, you'll need to remove leading whitespace from each line manually: Well, that last sentence is no longer true as of Perl 5.26. `use 5.026; say <<~'END'; This adds a new modifier "~" to here-docs that tells the parser that it should look for /^\s*$DELIM\n/ as the closing delimiter. END` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^7: Is a here-doc a good way to retrieve data file contents for testing? (updated)
by haj (Vicar) on Jan 17, 2021 at 09:33 UTC

Edited:

If you want your here-docs to be indented with the rest of the code, you'll need to remove leading whitespace from each line manually:

Well, that last sentence is no longer true as of Perl 5.26.

use 5.026;
say <<~'END';
    This adds a new modifier "~" to here-docs that tells the parser
    that it should look for /^\s*$DELIM\n/ as the closing delimiter.
    END
[download]

[reply]
[d/l]