Как мне распечатать элементы списка, разделенные переводами строк в Perl?

Question

Какой самый простой способ распечатать все элементы списка, разделенные переводом строки, в Perl?

Answer 1

print "$_\n" for @list;

В Perl 5.10:

say for @list;

Другой способ:

print join("\n", @list), "\n";

или (5.10):

say join "\n", @list;

Или как насчет:

print map { "$_\n" } @list;

Answer 2

Почему бы не использовать вместо этого глобальные переменные Perl

local $\ = "\n";
local $, = "\n";
print @array;

Если вас волнует ненужная интерполяция переменных, не стесняйтесь использовать эту версию:

local $" = "\n";
print "@array\n";

Answer 3

print join "\n", @list;