Foro - Perl en Español

por **rafa** » 2005-06-20 06:06 @295

Hola, ando loco con esto que no me funciona y no veo el posible fallo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ip = $ENV{'REMOTE_ADDR'};
$_ = "$ip";
@numeros = split(/\./);
 
open(DATA,"online_provincias.txt");
while(<DATA>){
    @C = split (/;/);
    if ($C[0] eq "$numeros[1]") {
        $provincias = "$C[1]";
    }else{
        $provincias = "No"
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Siempre imprime "No", aunque se cumpla la condición.

Los datos de la base están así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

27;Lugo

28;Madrid

29;MálagaColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y $numeros[1] es 28.

Os doy las gracias anticipadas.
Un saludo.

Hola. Igual es una tontería, pero juraría que en la comparación del if no deberías utilizar el "eq" si no un "==" ya que comparas números, no strings.

No pongas las variables entre comillas al hacer asignaciones o comparaciones.

$_ = $ip;
$C[0] == $numeros[1]

Espero que sea eso.

Un saludo.

MAC.

por **kidd** » 2005-06-20 08:48 @408

Hola.

Lo que sucede es que cuando se cumple la equivalencia debes de salirte del loop:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open( DATA, "online_provincias.txt" );
while (<DATA>) {
    @C = split(/;/);
    if ( $C[0] eq $numeros[1] ) {
        $provincias = $C[1];
        last;
    }
    else {
        $provincias = "No";
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Teniendo los siguientes datos, al hacer el loop tu variable $provincias iba cambiando de valor, por ejemplo, al buscar el número 28 usando el código como lo tenías hace lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

27;Lugo  $provincias = "No";

28;Madrid $provincias = "$C[1]";

29;Málaga  $provincias = "No";

RESULTADO: $provincias = "No";Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Pero si ponemos el last, entonces hace esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

27;Lugo  $provincias = "No";

28;Madrid $provincias = "$C[1]"; last;

RESULTADO: $provincias = "$C[1]";Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

SALUDOS

por **rafa** » 2005-06-21 04:49 @242

Muchas gracias a ambos, con las modificaciones que me habéis dicho y algún retoque que he dado a la consulta ya me funciona bien.

Quité las "" a $ip y puse el last y me va bien.

Quedó así ahora:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ip      = $ENV{'REMOTE_ADDR'};
$_       = $ip;
@numeros = split(/\./);
 
open( IN, "online_provincias.txt" );
while (<IN>) {
    @B = split(/;/);
    if ( $B[0] eq "$numeros[1]" ) {
        $nombre = "$B[1]" . "-" . "Área Pública";
    }
}
 
open( DATA, "claves_control.txt" );
while (<DATA>) {
    @C = split(/;/);
    my $numero = "$numeros[1].$numeros[2].$numeros[3]";
    if ( $C[1] eq "$numero" ) {
        $provincias = $C[2];
        last;
    }
    else {
        $provincias = $nombre;
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

else

else

Publicidad

Re: else

¿Quién está conectado?