Foro - Perl en Español

Hola, vengo a molestar de nuevo...

Lo que pasa es que tengo un arreglo estilo:

@nombres=('ANDRES','JAVIER','LUCIA');

Y lo que quiero es crear nuevos arreglos donde se almacenen las letras de una misma posición de todas los valores dentro del arreglo. Es decir que me queden arreglos:

@l1=('A','J','L');
@l2=('N','A','U');

y así sucesivamente...

Gracias por toda la ayuda que me puedan brindar.

Por un lado debes pasar array cada nombre



y luego manualmente

push @l1,$array1[0];
push @l2,$array1[1];
push @l3,$array1[2];

bueno esto si lo quieres hacer manualmente

¿Hay alguna forma de hacerlo de manera automática?

Pues, ¿usando un bucle o algo así?

Claro que sí



Algo así sería, no probado. La idea es que tendrás un array donde cada índice tendrá las letras, algo así:

$letras[0] #AJL
$letras[1] #NAU

No probado, pero algo así.

Muchas gracias... Pero por algún motivo el programa me dice que: Not an ARRAY reference at...

Stiven42 escribiste:Muchas gracias... Pero por algún motivo el programa me dice que: Not an ARRAY reference at...

¿Podrías indicar en qué línea?

En la línea 7... donde se usa la función push()

my Dios... Bueno, intenta algo así y me dices qué te sale.

Es una machetada pero, mira, a ver si te funciona.

Me sale: ARRAY (0x46c1a8) y se repite y salen muchos números más.

Bueno, no puedo probar. Ando en el trabajo, pero, mira si te sale ARRAY (ox46c1a8). Seguro están haciendo un print al array, deberías hacer un print Dumper, pero por ahí vas ajustando tu código.