Foro - Perl en Español

por **colorado** » 2011-04-19 13:56 @622

Conseguí hacerlo funcionar, con la opción que me diste anteriormente.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open (NUMEROS, 'numeros.txt'); 
my @NUMEROS = <NUMEROS>; 
chomp @NUMEROS; 
close(NUMEROS); 
 
for my $i (0 .. 200) {
    push @secuencia, $NUMEROS[$i], $NUMEROS[$i+1], $NUMEROS[$i+2];
}
 
for my $i ( 0 .. 9 ) {
 
 
    print "$secuencia[$i] ";
 
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Lo de utilizar shift(), creo entenderlo, pero no sé cómo aplicarlo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open (NUMEROS, 'numeros.txt'); 
my @NUMEROS = <NUMEROS>; 
chomp @NUMEROS; 
close(NUMEROS); 
 
 
 
for my $i ( 0 .. 9 ) {
 
$p = shift(@NUMEROS);
 
print "$NUMEROS[$p] ";
 
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es lo que tu dices, extrae el primer elemento.

Pero no sé cómo puedo utilizarlo para que la salida final sea, 1 2 3 2 3 4 3 4 5...

No tiene sentido tener un fichero de texto con una serie de números que son consecutivos: su contenido puede ser generado por un simple bucle for().

Lo que es interesante es guardar tu secuencia de números, ya que no es obvia su generación.

Por eso, primero creamos un fichero numeros.txt en donde guardamos la secuencia:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open my $SEC, q[>], 'numeros.txt';
 
for my $i (0 .. 200) {
    print SEC $i,   "\n";
    print SEC $i+1, "\n";
    print SEC $i+2, "\n";
}
 
close SEC;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y ya podemos entrar en el bucle principal:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open my $SEC, q[<], 'numeros.txt';
 
for my $i (0 .. 9) {
    chomp(my $p = <SEC>);
 
    print "$p ";
}
 
close SEC;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Incluso sería mejor no guardar la secuencia en un fichero. Con guardarlo en un array, nos vale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @SECUENCIA;
for my $i (0 .. 200) {
    push @SECUENCIA, $i, $i+1, $i+2;
}
 
...;
 
for my $i (0 .. 9) {
    my $p = shift @SECUENCIA;
 
    print "$p ";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aquí accedemos mediante shift(), para obtener un valor cada vez, pero se podría hacer también de forma indexada:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $p = $SECUENCIA[$i];
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La diferencia es que con esta segunda manera, @SECUENCIA no es modificado, como sí ocurre con shift().

por **Hector Gutierrez** » 2011-04-19 21:39 @944

otra forma de resolver la creación de la secuencia es con:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $j = 1;
for my $i ( 1 .. 200 ) {
    print " ", ($i - $j), " ";
    if ( 0 == $i % 3 ) {
        $j = $j + 2;
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-04-20 02:47 @158

¡Genial! Has descubierto la fórmula matemática que genera la secuencia.

Es la mejor solución, desde luego.

por **colorado** » 2011-04-21 08:56 @414

Perdón por no haber respondido antes, acabo de llegar de viaje.

Sois unos máquinas. Hector, muy bueno, has realizado exactamente lo que pedía, genial :wink:

.

No tiene sentido tener un fichero de texto con una serie de números que son consecutivos: su contenido puede ser generado por un simple bucle for().

Bueno, sí tiene sentido, me explico:

Lo que quiero es leer un archivo, en este caso fue numeros.txt, en el que hay una serie de numeros consecutivos, pero en mi código final en ese archivo, puede haber cualquier otra cosa, letras, palabras, nombres y para eso necesito leer del archivo numeros.txt, que podría llamarse palabras.txt (con una serie de palabras) y después manejarlo a mi antojo:

palabra1 palabra2 palabra3 palabra2 palabra3 palabra4 palabra3 palabra4...

Lo que es interesante es guardar tu secuencia de números, ya que no es obvia su generación.

Por eso, primero creamos un fichero numeros.txt en donde guardamos la secuencia

Ahora te entiendo perfectamente, si leo mi archivo orinal y después genero la secuencia que quiero, guardándola en otro archivo o en un array, consigo el mismo resultado.

Por lo tanto, es una alternativa buenísima que me abre nuevas alternativas para mi código final.

Cierro el tema, muy agradecido a los dos, fantásticas soluciones.

Foro - Perl en Español

Mayor que un múltiplo de tres

Re: Mayor que un múltiplo de tres

Publicidad

Re: Mayor que un múltiplo de tres

Re: Mayor que un múltiplo de tres

Re: Mayor que un múltiplo de tres

Re: Mayor que un múltiplo de tres

Re: Mayor que un múltiplo de tres

Re: Mayor que un múltiplo de tres

Re: Mayor que un múltiplo de tres

Re: Mayor que un múltiplo de tres

¿Quién está conectado?