Foro - Perl en Español

Hola a todos:

Estoy en un dilema que no es precisamente de Perl, pero como en eso es lo que programo espero me podáis ayudar. Tengo que resolver el siguiente problema: hallar todas las combinaciones posibles (pero sin permutaciones) de una matriz no regular. O sea, teniendo

Código: Seleccionar todo

S  V  V
T  A  L
H

Tengo que dar todas las combinaciones posibles, ejemplo :

Código: Seleccionar todo

SVV
SVL
TAV

y así sucesivamente. Claro que en este ejemplo es relativamente fácil, porque son solo 12 combinaciones. Una solución que funciona es poner tres ciclos anidados que vayan combinando de atrás hacia delante, pero si tuviese 30 columnas tendría ¡30 ciclos anidados! y eso no me parece muy limpio.
¿Alguna sugerencia?

Esto tiene alguna regla?

STH es una combinacion valida?

Si lo es, sólo tienes que recorrer la matriz (poniendolo en un array, claro) y combinar uno por uno:

DATO1: [1, 0], [1, 1], [1, .....]
DATO2: [2, 0]....

Un sub para meter todo en un array o, merjor aun, en un hash y otro para recorrerlo y sacar datos por cada fila y columna.

Bienvenido a los foros de Perl en Español.

Y en cuanto a los 30 bucles... yo creo que no hay otra forma.

Hay algunos módulos sobre combinatoria en CPAN, pero para esta caso en particular no conozco ninguno.

En este foro hice algo parecido de combinatoria, usando recursividad. Está en este hilo: viewtopic.php?t=894

Seguí el consejo de explorer y opté por los 30 bucles anidados: como sea resuelve el problema.
Gracias a todos los amigos que sugirieron.
Lirsum