在Perl中，如何生成所有可能的模式，

我可以知道如何（在 Perl 中）在文件和屏幕输出中的所有可能模式下生成，并且可以访问模式中的每个插槽，？！

非常感谢大家，

输入值，

1，没有。插槽 ,

2，没有。的对象，

例如 ，

不。对象 = 2 , { a , b } ,

不。插槽数 = 4 ,

然后，输出，

不。在所有可能的模式中 = 2^4 = 16 ，

然后 ，

行是 16 ，

列是 8 ，

eachSlot[i][j] = 允许分配或更改其值，

然后，输出格式看起来像，

啊啊啊

aaab

阿巴

阿布

阿巴

阿巴

阿爸

艾伯

咩咩

巴布

巴巴

巴布

巴阿

巴布

巴巴

bbbb

和 ，

如果看到 'a' ，然后做某事 actionX ，

如果看到 'b' ，那么做某事，

非常感谢所有的建议和帮助，

回答

use Algorithm::Loops qw( NestedLoops );

my @syms = qw( a b );
my $num_slots = 4;

my $iter = NestedLoops([ ( @syms ) x $num_slots ]);
while ( my @items = $iter->() ) {
   say "@items";
}