一行创建perl数组引用n个空字符串数组

Question

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

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

我的问题是columnscss关键.我在上面的内容是$options{columnscss}作为字符串引用而不是数组引用.我怎么能初始化键的值是['','',...,'']与$numcol空字符串？我想避免首先array ('') x $numcol在单独的行中创建,然后将键值指定为对它的引用.我相信这就是我的回答.

Answer 1

使用匿名数组:

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

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