Wie kann ich in Perl das kartesische Produkt mehrerer Mengen durchlaufen?
Gegebenx
Anzahl der Arrays, jedes mit einer möglicherweise unterschiedlichen Anzahl von Elementen. Wie kann ich alle Kombinationen durchlaufen, in denen ich ein Element aus jedem Array auswähle?
Beispiel:
[ ] [ ] [ ]
foo cat 1
bar dog 2
baz 3
4
Kehrt zurück
[foo] [cat] [ 1 ]
[foo] [cat] [ 2 ]
...
[baz] [dog] [ 4 ]
Ich mache das übrigens in Perl.