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