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.

Antworten auf die Frage(5)

Ihre Antwort auf die Frage