perl - 如何创建一个包含 n 个空字符串或零的数组？

Question

当我在 Perl 中操作 CSV 文件时，我经常需要用一定数量的相同元素初始化一个数组:

my $arr = [];
for my $i (0..$n-1) {
    push @$arr, "";
}

有没有办法以更紧凑的形式做到这一点？

完美地我想有一个用于此目的的表达式，以便我可以轻松添加缺少的列:

f([@$some_tab, n_elems("", $column_number - scalar(@$some_tab))]);

我知道如何编写函数，但我从不使用 10 行脚本编写。

Answer 1

使用乘数。

my @arr = ("") x $n;

更新:请注意，这会复制元素，如果您使用引用填充数组，这可能是不可取的。在这种情况下，需要构造每个元素，您可以使用 map :

my @arr = map { [] } 1..$n;