Ответ 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;
Каков самый простой способ распечатать все элементы списка, разделенные потоками строк в Perl?
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;
Почему бы не использовать глобальные переменные Perl вместо
local $\ = "\n";
local $, = "\n";
print @array;
Если вы волнуетесь за ненужную переменную интерполяцию, не стесняйтесь использовать эту версию:
local $" = "\n";
print "@array\n";
print join "\n", @list;