perl - 如何将常量传递给 Perl 子例程？

Question

我得到如下：

 use constant ABC => ('one', 'two', 'three');

我想将此常量传递给variations_with_repetition(\@data, $k)子程序作为@data.

我该怎么做？

Answer 1

使用[]运算符将​​列表转换为 ARRAY 引用：

variations_with_repetition( [ABC] , $k );