Есть ли в Perl эквивалент многострочных строк Python?

Question

В Python вы можете получить многострочную строку, подобную этой, используя строку документации

foo = """line1
line2
line3"""

Есть ли что-то эквивалентное в Perl?

Answer 1

Обычные кавычки:

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

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

Здесь можно указать любой токен как конец блока цитируемого текста:

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

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

Операторы кавычек в стиле Regex позволяют использовать в качестве разделителя практически любой символ - точно так же, как регулярное выражение позволяет изменять разделители.

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

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

ОБНОВЛЕНИЕ: исправлены токены here-doc.

Answer 2

Perl не имеет значительных синтаксических вертикальных пробелов, поэтому вы можете просто сделать

$foo = "line1
line2
line3
";

, что эквивалентно

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

Answer 3

Да, вот документ.

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

Answer 4

Быстрый пример

#!/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

Answer 5

Да, у вас есть 2 варианта:

1.herdoc, обратите внимание, что все данные в heredocs интерполируются:

my $ data = <

ваши данные

END

2.qq () см. Например:

print qq ( HTML

$ ваш текст

BODY

HTML );