Perl - 需要帮助使用现有数组中的项目填充 Term::ANSIMenu

Question

尝试使用 Term::ANSIMenu 构建一个漂亮的菜单。

文档说 items() 需要一个数组数组：

items()

Type: array of arrays
Constraints: [[<keyname>, <string>, <code_ref>], ...]
Default: []

所以这工作正常：

my $menu = Term::ANSIMenu->new(
    items  => [['1', 'First menu item', \&exec_item],
               ['2', 'And so on', \&exec_item],
              ]) ;

我需要做的是向 items() 提供现有数组中的字符串（得到由我的程序动态创建 - 它可能包含任意数量的字符串）。

例如，

@array = ('menu choice one', 'menu choice two', 'menu choice three') ;

我正在努力创建一个“数组的数组”，然后将其传递给 items()。

有接受者吗？

Answer 1

您需要传递 对数组的引用

应该如下所示：

@array = (['1', 'First menu item', \&exec_item]); 
push @array, ['2', 'And so on', \&exec_item];

my $menu = Term::ANSIMenu->new(items => \@array);

Answer 2

使用 \@ 引用现有数组：

my @multiDimensionalArray = (\@preexistingArray1, \@preexistingArray2, ...);

或者

my $multiDimensionalArrayRef = [\@preexistingArray1, 
                  \@preexistingArray2, ...]; # square brackets for array ref!

对于 items：

...
items => \@multiDimensionalArray
...

或者

...
items => $multiDimensionalArrayRef
...