Foro - Perl en Español

por **colorado** » 2011-01-25 17:21 @765

Intentaré explicarme lo mejor posible:
Tengo dos listas; una con el nombre numeros.txt y otra con el nombre letras.txt.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

numeros.txt      letras.txt

1                 a

2                 b

3                 c

4

5

6

7

8

9

0Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que quiero es conseguir esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

a 1

b 2

c 3

a 4

b 5

c 6

a 7

b 8

c 9

a 0Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Mi primer programa fue este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

numeros.txt      letras.txt

                a

                b

                c

                d

                e

                f

                g  

                h    

                i

                jColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y salio con el resultado que quería

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

a

b

c

d

e

f

g

h

i

j Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open (NUMEROS, 'numeros.txt');
my @numeros = <NUMEROS>;
chomp @numeros;
close(NUMEROS);
open (LETRAS, 'letras.txt');
my @letras = <LETRAS>;
chomp @letras;
close(LETRAS);
for my $i (0 .. $#letras)  {
print "\n";
print " $numeros[$i] $letras[$i]"
};
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿Cómo podría realizarlo?
Gracias

Deberías hacer que el bucle principal recorriese el array más largo, en este caso, los números.

Antes del bucle, guardas el número de elementos del array más corto.

Y dentro del bucle, pintas el elemento del array más largo; y del segundo, te vale con un poco de matemáticas: usas el operador módulo, para que circule por el rango de índices del segundo array.

Algo así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$l=@array_letras;# número de elementos de las letras

for(my$i=0;$i<@array_numeros;$i++){# recorremos los índices
print
$array_numeros[$i],# pintamos el $i-esimo valor de números y
' ',
$array_letras[$i%$l],# el $i-ésimo valor circulando entre 0 y $l-1
"\n"
;
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **colorado** » 2011-01-26 11:53 @536

Gracias por tu respuesta, explorer.

He intentado hacer lo que me dices (seguro que mal), y este es el código que me quedó.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open (LETRAS, 'letras.txt');
my @array_letras = <LETRAS>;
chomp @array_letras;
close(LETRAS);
open (NUMEROS, 'numeros.txt');
my @array_numeros = <NUMEROS>;
chomp @array_numeros;
close(NUMEROS);
 
my $l = @array_letras;
 
for (my $i = 0; $i < @array_letras; $i++) {
print "\n";
print "$array_numeros[$i] $array_letras[$i % $l]";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El resultado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

a

b

cColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Es lo que entendí en tu respuesta, pero no me funcionó. ¿Podrías corregirlo?

Un saludo

por **explorer** » 2011-01-26 11:56 @539

Fíjate en el código que publiqué... no estoy recorriendo las letras, sino los números.

por **colorado** » 2011-01-26 12:29 @562

Ok, conseguido. Muchísimas gracias, tío, por tu paciencia.

Un saludo.

Foro - Perl en Español

Números y letras

Números y letras

Publicidad

Re: Números y letras

Re: Números y letras

Re: Números y letras

Re: Números y letras

¿Quién está conectado?