Foro - Perl en Español

Hola amigos.

Tengo que hacer una validación que consiste en buscar si existe un código, que si lo encuentra, no debe permitir seguir.



Supongamos que ingreso un código repetido. La primera vez funciona bien, pero si reparo el error y le doy guardar vuelve a mostrar el mensaje "repetido"...


Gracias por la ayuda.

selectall_arrayref() devuelve 'undef' en caso de que ocurra un error (y, en ese caso, entraría en funcionamiento el die()). Si no hay error, siempre devuelve una referencia a un array de array, con el resultado de la consulta.

En la documentación de DBI dice que selectall_arrayref() es la combinación de prepare(), execute() y fetchall_arrayref(). Y en la sección donde explica fetchall_arrayref() se comenta que en caso de que en el resultado no existan filas, se devuelve una referencia a un array vacío.

Así que, entonces, lo que debes hacer es cambiar la condición de la línea 6 a esto:

$encuentra siempre es un valor verdadero cuando llegamos a esa línea, por eso siempre te daba error. Es una referencia a algo, y las referencias siempre son valores verdaderos. Otra cosa es ver a qué hace referencia. Si lo desreferenciamos con la '@' delante para acceder al array, la condición comprobará cuántos elementos tiene ese array. Si no hay elementos, la condición fallará y saltará al else{}.

Muchas gracias por tu respuesta, funciona super bien. Más abajo es el código en el que necesito dar commit()... entonces hago:



esperando que si no encuentra el repetido, lo grabe. Pero no funciona.

¿Dónde está el prepare() y el execute()?

Es el mismo hilo de la conversación anterior.



más abajo...



¿me entiendes?

commit() no sirve de cada si a la hora de abrir la base de datos el valor del indicador AutoCommit está puesto a un valor verdadero (que por defecto así lo tiene).

¿Por qué no metes el commit() dentro del primer if()?

Incluso mejor, si el AutoCommit ya está puesto a un valor verdadero (o si no lo tienes puesto), entonces la línea del commit() sobra.

Ok, olvidémonos del commit(). Más abajo hay un redirect(), que es lo que me interesa.

El redirect() yo lo veo bien, salvo por los siguientes detalles a tener en cuenta:

* es correcta la forma en que lo pones, si al principio del programa lo has importado de esta manera:

use CGI qw/:standard/;

Si no, es posible que tengas algo como

my $cgi = CGI->new;

entonces la línea deberías ponerla como

$cgi->redirect( ... )

* El print() que hay después no sirve para nada. Cambialo por un exit;

* Y lo más importante... ANTES del redirect() no tiene que haberse enviado NADA a la salida estándar (alias, página del usuario). Ni SIQUIERA, un header(). Nada. Nothing.