Tengo este
script:
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_numeros; $i++) {
print "\n";
print "$array_letras[$i % $l] $array_numeros[$i]";
sleep 5;
};
Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
resultado:
Using text Syntax Highlighting
pausa 5 segundos
a 1
pausa 5 segundos
b 2
pausa 5 segundos
c 3
pausa 5 segundos
d 4
pausa 5 segundos
a 5
pausa 5 segundos
b 6
pausa 5 segundos
c 7
pausa 5 segundos
d 8
pausa 5 segundos
a 9
pausa 5 segundos
b 0
pausa 5 segundos
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Lo que necesito es lo siguiente: un bucle que coja los elementos, de tres en tres y cada tres elementos realice una pausa de 5 segundos.
Using text Syntax Highlighting
a 1
b 2
c 3
pausa de 5 segundos
d 4
a 5
b 6
pausa de 5 segundos
c 7
d 8
a 9
pausa de 5 segundos
b 0
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Le estoy dando bastantes vueltas al tema. Será muy sencillo pero no encuentro la forma de realizarlo.
