單行創建對n個空字符串的數組的perl數組引用

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) 。