Получить все комбинации из N массивов

Question

У меня есть массив массивов.

@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.

Answer 1

use Algorithm::Loops qw(NestedLoops); 
my @b; NestedLoops(\@a, sub { push @b, [ @_ ] }); 

Answer 2

Почему cpan?

use strict; use warnings; 
use Data::Dumper; 
my @a=([1,2,3],['b','r','g'],['L','X']); 

my @b; 
foreach my $i (@{$a[0]}){ 
    foreach my $c (@{$a[1]}){ 
     foreach my $k (@{$a[2]}){ 
      push @b, [$i, $c, $k]; 
     } 
    } 
} 

print Dumper(\@b);