我可以使用此处文档附加到字符串吗？

Question

我有一个字符串，我想向其附加格式化的 SQL 块。有没有办法使用此处文档进行追加？或者我是否需要使用此处文档创建一个新字符串并将其附加到现有字符串？

Answer 1

你可能会说，

    $str = <<EOH;
$str
more stuff here
EOH

但是 Perl 优化了它，

    $str .= <<EOH;
more stuff here
EOH

你不需要像 ; 那样设置一个单独的变量

    $str1 = <<EOH;
more stuff here
EOH
    $str .= $str1;

。即使在较旧的 Perls 中，前两个也应该可以正常工作（而对于非常旧的 Perl 5，在某些情况下不起作用，特别是 print < 会丢失此处文档的内容）。

Answer 2

这里的文档非常灵活，可以在大多数使用普通字符串文字的情况下使用。它们可以用作函数调用或复合表达式的一部分。

my $inner_str = 'middle text';

my $full_str = <<FIRST_BLOCK . "$inner_str\n" . <<SECOND_BLOCK;
This text is at the start of the string.
And so is this.
FIRST_BLOCK
This text ends the first assignment to the string.
SECOND_BLOCK

Perl 用于解析heredoc 的规则允许一些非常奇怪的行为，当找到heredoc 时，将继续解析当前行，直到该行结束。然后perl将停止解析当前表达式并开始读取heredoc直到找到结束标记。一旦它找到在该行上开始的所有此处文档的结束标记，它将继续解析，就好像表达式中没有中断一样。

$full_str .= <<THIRD_BLOCK . "$inner_str
This text is "appended" to the string.
THIRD_BLOCK
" . <<LAST_BLOCK;
This text ends the string.
LAST_BLOCK

print $full_str;

请注意，该字符串在此处文档 THIRD_BLOCK 正文之前开始，并在此处文档 THIRD_BLOCK 之后结束，但不包含其内容。

虽然您可以非常灵活地使用heredoc语法，但我建议您每个表达式仅使用一个heredoc，并保持表达式简单。如果您需要在一个表达式中使用多个heredoc，或者需要在复杂表达式中使用一个heredoc，那么首先将heredoc分配给一个变量，然后在表达式中使用该变量。

Answer 3

是的，你可以。

$sql = "select something";
print <<END
Line 1
Line 2
Line 3
END
. $sql;

输出：

Line 1
Line 2
Line 3
select something