如何在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;