arrays - 使用 perl 动态显示列中的数组内容

Question

我想在列 View 中显示数组内容。例如:我的数组包含 9 个值，如下所示:

@numbers = ("One","Two","Three","Four","Five","Six","Seven","Eight","Nine");

我想在 2 列中显示值，如下所示:

One      Two
Three    Four
Five     Six
Seven    Eight
Nine

我可以使用如上所示的表格和显示，但我想对一个非常大的数组使用循环动态地做同样的事情。

任何人都可以帮我解决这个问题。

谢谢你

阿维内什

Answer 1

使用 splice，您还可以修改列数:

use strict;
use warnings;

my @numbers = ("One","Two","Three","Four","Five","Six","Seven","Eight","Nine");
my $numcols = 2;
while (@numbers) {
  print join("\t", splice(@numbers,0, $numcols)), "\n";
}