arrays - 一行创建一个对 n 个空字符串数组的 perl 数组引用

Question

我正在初始化几个参数，这些参数作为可选键值组合传递给子例程:

my %options = (
    center       => 1, 
    caption      => '', 
    tablecss     => '', 
    captioncss   => '', 
    datacss      => '',
    headercss    => '', 
    allcellcss   => '', 
    texalignment => '', 
    midrules     => 0, 
    columnscss   => \(('') x $numcol),
    @_,
);

我的问题是 columnscss key 。我上面的内容是离开 $options{columnscss}作为字符串引用，而不是数组引用。如何将该键的值初始化为 ['','',...,'']与 $numcol空字符串？我想避免首先创建 array ('') x $numcol在单独的行中，然后分配键值作为对其的引用。我相信这就是this answer我会这么做的。

Answer 1

使用匿名数组:

columnscss => [ ('') x $numcol ]

反斜杠运算符是分布式的，即 \( $x, $y) 与 (\$x,\$y) 相同。