如何在 Perl 中打印由换行符分隔的列表元素？答案

【问题标题】：How can I print list elements separated by line feeds in Perl?如何在 Perl 中打印由换行符分隔的列表元素？
【发布时间】：2009-12-09 08:52:41
【问题描述】：

在 Perl 中打印由换行符分隔的所有列表元素的最简单方法是什么？

【问题讨论】：

无需花哨。遍历元素，将它们打印出来，然后是 \n。够容易吗？
我实际上会反对相反的立场； perl 是专门为获得、停留和炫耀“花哨”而创建的。作为参考，我推荐：youtube.com/watch?v=O-zpOMYRi0w

标签： perl

【解决方案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;

【讨论】：

【解决方案2】：

为什么不滥用 Perl 的全局变量

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

如果您对不必要的变量插值感到兴奋，请随意使用此版本：

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

【讨论】：

当然，我们可以让这个全局变量滥用安全卫生：sub arrprint (\@;$$) { my @a = @{shift()}; local $\ = @_ ? shift : $\; local $, = @_ ? shift : $,; print @$aref; }（代码未经测试）

【解决方案3】：

print join "\n", @list;

【讨论】：