В Perl, как я могу перебрать декартово произведение нескольких множеств?
Даноx
количество массивов, каждое из которых может иметь разное количество элементов, как я могу перебрать все комбинации, где я выбираю один элемент из каждого массива?
Пример:
[ ] [ ] [ ]
foo cat 1
bar dog 2
baz 3
4
ReturnsI»
[foo] [cat] [ 1 ]
[foo] [cat] [ 2 ]
...
[baz] [dog] [ 4 ]
Я делаю это в Perl, кстати.