我有数组数组。
@a=([1,2,3],['b','r','g'],['L','X']);
并希望得到以下结果:
@b=(
[1,'b','L'],[1,'b','X'],
[1,'r','L'],[1,'r','X'],
[1,'g','L'],[1,'g','X'],
[2,'b','L'],[2,'b','X'],
[2,'r','L'],[2,'r','X'],
[2,'g','L'],[2,'g','X'],
[3,'b','L'],[3,'b','X'],
[3,'r','L'],[3,'r','X'],
[3,'g','L'],[3,'g','X'],
)
我的输入数组@a具有2到6个嵌套数组
不知道如何在cpan上找到此功能。
use Algorithm::Loops qw( NestedLoops );
my @b; NestedLoops(\@a, sub { push @b, [ @_ ] });
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句