Perl 是否具有与 Python 的多行字符串等效的功能？

Question

在 Python 中，您可以使用文档字符串获得像这样的多行字符串

foo = """line1
line2
line3"""

Perl 中是否有等效的东西？

Answer 1

普通引号：

# Non-interpolative
my $f = 'line1
line2
line3
';

# Interpolative
my $g = "line1
line2
line3
";

Here-docs 允许您将任何标记定义为带引号的文本块的末尾：

# Non-interpolative
my $h = <<'END_TXT';
line1
line2
line3
END_TXT

# Interpolative
my $h = <<"END_TXT";
line1
line2
line3
END_TXT

正则表达式样式引号运算符允许您使用几乎任何字符作为分隔符 - 与正则表达式允许您更改分隔符的方式相同。

# Non-interpolative
my $i = q/line1
line2
line3
/;

# Interpolative
my $i = qq{line1
line2
line3
};

更新：更正了此处文档标记。

Answer 2

Perl 没有重要的语法垂直空格，因此您可以执行

$foo = "line1
line2
line3
";

相当于

$foo = "line1\nline2\nline3\n";

Answer 3

是的，这里有一个文档。

$heredoc = <<END;
Some multiline
text and stuff
END

Answer 4

是的，你有 2 个选择：

1.heredocs 请注意，heredocs 中的每个数据都是插值的：

my $data =<<END 

your data 

END

2.qq() 请参阅示例：

print qq(
 HTML

 $your text

 BODY

 HTML
);

Answer 5

简单示例

#!/usr/bin/perl
use strict;
use warnings;

my $name = 'Foo';

my $message = <<'END_MESSAGE';
Dear $name,

this is a message I plan to send to you.

regards
  the Perl Maven
END_MESSAGE

print $message;

...结果：

Dear $name,

this is a message I plan to send to you.

regards
  the Perl Maven

参考：http://perlmaven.com/here-documents