Foro - Perl en Español

por **aalleexx81** » 2009-05-04 15:25 @684

En este trocito de código nunca entra en el if():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if(-e $F_GRUP){
open(ENTRADA1,$F_GRUP)ordie"Error: no se puede abrir el fichero $!";
while($linea1=<ENTRADA1>){
@linea1=split/:/,$linea1;# Meto en el vector los campos de /etc/grup
print"linea1[3] vale $linea1[3]";
if($linea1[3]eq""){
print"EOOOO";
@names=split/,/,$linea1[3];# Meto en un vector los nombres de los usuarios secundarios
}
print"\n";Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

No sé si estoy utilizando bien los operadores de comparación. Espero que podáis ayudarme.
Gracias

Fíjate que le he añadido unos corchetes y un carácter de fin de línea.

El objetivo es que el programa nos muestre exactamente qué es lo que se ha recibido en $linea1[3].

Si a veces está vacía y otras no, eso depende de la forma que tenga $linea1.

Como veo que estás leyendo el fichero /etc/group, entonces ese cuarto campo sí que puede estar vacío. Y, como después, te interesa separar por comas el nombre de usuarios, entonces tienes que entrar en el if() cuando la línea sea distinta de cadena vacía (ne).

Un detalle importante: debes agregar la línea chomp($linea1); inmediatamente después de la lectura del while() para que Perl quite el retorno de carro de $linea1. Ese carácter podría molestarnos para los ulteriores cálculos. Es más, creo que es la razón por la cual te falla el if().

por **aalleexx81** » 2009-05-04 16:28 @727

Estás en lo cierto. Vaya quebradero de cabeza. Lo hice como acabas de decir y me funciona a la perfección. De nuevo, mil gracias por tu tiempo.

por **dwong** » 2009-06-22 02:21 @139

Muchachos, yo tengo un problema similar que espero puedan ayudarme..

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl

$prefijo="90002";

use DBI;

$db="base_datos";
$host="localhost";
$port="3306";
$userid="root";
$passwd="clave";
$connectioninfo="DBI:mysql:database=$db;$hOCost;$port";

$dbh= DBI ->connect($connectioninfo,$userid,$passwd);

$consulta=$dbh->prepare("select * from celulares where prefijo=$prefijo");
$consulta->execute();

while(@resultado=$consulta->fetchrow_array()){
$proveedor=$resultado[2];
$localidad=$resultado[3];

$dato=chop($proveedor);
print"Proveedor=($dato)";
}

$consulta->finish();
$dbh->disconnect;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El problema está en que cuando $prefijo es igual a un valor que no está en la base de datos pues no me muestra ningún resultado, es decir, no ejecuta el print() y creo que debería mostrar: Proveedor=() pero no muestra nada... espero me puedan apoyar ya que no sé por dónde más buscar...

Muchas gracias...

Dwong. (Editado...)

por **explorer** » 2009-06-22 03:08 @172

Bienvenido a los foros de Perl en Español, dwong.

Te falta la llave de cierre ('}') del bucle while().

por **dwong** » 2009-06-22 08:53 @412

Sorry, fue un error mio al copiar el código (acabo de editarlo), el código original sí tiene el cierre del bucle pero cuando el código sigue sin mostrar nada, solo muestra espacio vacío y me devuelve al prompt..

¿Alguna idea...? Gracias.

Slds.,

Dwong.

por **explorer** » 2009-06-22 10:01 @459

El tema está justo en la comprobación del while().

Dices que cuando buscas por una palabra que NO está en la base de datos, no aparece el texto que quieres.

Es que es eso lo que realmente le has dicho a Perl que haga...

El bucle que has escrito dice: mientras me devuelvas un arreglo correspondiente a la consulta, haz lo siguiente (imprimir el texto).

Pero el caso es que si buscas por una palabra que no está, fetchrow_array() devolverá una lista vacía. Y una lista vacía es como un valor falso para el bucle while(), por lo que no entrará y no imprimirá nada.

El manual de DBI, en fetchrow_array(), dice:

If there are no more rows or if an error occurs, then fetchrow_array returns an empty list. You should check $sth->err afterwards (or use the RaiseError attribute) to discover if the empty list returned was due to an error.

que quiere decir,

Si no hay más líneas o si ocurre un error, entonces fetchrow_array devuelve una lista vacía. Debes comprobar $sth->err después (o usar el atributo RaiseError) para descubrir si la lista vacía devuelta fue debida a un error.

Puedes hacer la siguiente prueba: quita el 'while()', '{', y '}', y deja la condición y las sentencias, para que se ejecuten siempre.

Foro - Perl en Español

Comparación de cadenas

Comparación de cadenas

Publicidad

comparación de cadenas

comparación de cadenas

comparación de cadenas

Pues yo tengo el mismo problema ..

¿Quién está conectado?