Foro - Perl en Español

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{}.

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

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.

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.