Foro - Perl en Español

por **sufisavey80** » 2013-05-13 15:31 @688

Buenas tardes...

Está excelente este foro y la verdad sigo aprendiendo... Tengo la siguiente duda, a ver si me podrían ayudar, por favor.

Lo que necesito es leer un arreglo, por ejemplo @nodos, que contiene los valores 15, 20, 45, 78, 450, etc... y barrer una variable a través, de este arreglo, donde la variable trae un valor, por ejemplo $variable = 45, entonces imprimir si existe..

Muchas gracias por su apoyo.

my @nodos = (10,15,20,25,30,35,40,45,50,55,60);
my $variable = 45;
my $contador = 0;
foreach (@nodos){
        if ($_ == $variable){
                print "sí existe, está en la posición $contador\n";
        }
        $contador ++;
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Éxitos.

por **sufisavey80** » 2013-05-13 16:19 @721

Mil gracias, Marko... con tu ejemplo ya se resolvió mi duda... Excelente.

Bonita tarde.
Saludos.

por **explorer** » 2013-05-13 17:06 @754

Otra versión, usando los índices a los elementos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @nodos    = (10,15,20,25,30,35,40,45,50,55,60);
my $variable = 45;
 
for my $i (0 .. $#nodos) {
    if ($nodos[$i] == $variable) {
        print "sí existe, está en la posición $contador\n";
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Hay que recordar también el uso de grep(), para hacer este tipo de filtros:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @nodos    = (10,15,20,25,30,35,40,45,50,55,60);
my $variable = 45;
 
my @posiciones = grep { $nodos[$_] == $variable }  0 .. $#nodos;
 
for my $i (@posiciones) {
    print "Está en la posición $i\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **sufisavey80** » 2013-05-14 16:06 @712

Gracias a ambos...

Me surgió otra duda. Por ejemplo, le agregué un else{} a esta rutina para que imprima "no existe". ¿Cómo puedo evitar que cuando se cumpla el else{} no me imprima las veces que no encontró el valor de la variable...?

no existe
no existe
no existe
no existe
no existe

El objetivo es para que cuando yo ponga alguna otra rutina o programa en la condición del if() y se cumpla el else{} no me ejecute varias veces la rutina o programa dentro de la condición else... si no que sólo se ejecute una sola vez.

my @nodos = (10,15,20,25,30,35,40,45,50,55,60);
my $variable = 45;

for my $i (0 .. $#nodos) {
if ($nodos[$i] == $variable) {
print "sí existe, está en la posición $contador\n";
}
else{
print "no existe";
}

Muchas gracias de antemano,
Saludos.

por **explorer** » 2013-05-14 16:33 @731

Esta es mi solución. Consiste en sacar los coincidentes, y luego ver si hemos encontrado o no algún coincidente.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @nodos    = (10,15,20,25,30,35,40,45,50,55,60);
my $variable = 45;
 
my @posiciones = grep { $nodos[$_] == $variable }  0 .. $#nodos;
 
if (@posiciones) {
    print "Sí existe: [@posiciones]\n";
}
else {
    print "No existe\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En tu caso, se podría hacer guardando lo encontrado en alguna variable, y luego, después del bucle, preguntar si la variable tiene o no algún valor, parecido a como lo hago yo.

por **sufisavey80** » 2013-05-14 16:43 @738

Muchas gracias, explorer/Marko... excelente como siempre.

Saludos.

Foro - Perl en Español

Buscar variable dentro de un arreglo

Buscar variable dentro de un arreglo

Publicidad

Re: Buscar variable dentro de un arreglo

Re: Buscar variable dentro de un arreglo

Re: Buscar variable dentro de un arreglo

Re: Buscar variable dentro de un arreglo

Re: Buscar variable dentro de un arreglo

Re: Buscar variable dentro de un arreglo

¿Quién está conectado?