Foro - Perl en Español

Hola a todos:

Tengo un script en donde leo algo de una base de datos, eso lo recojo en un arreglo, que consiste solo de un campo y cuando lo quiero comparar con un cierto valor, estoy recibiendo el mensaje:

Use of uninitialized value $doc[0] in string eq at /var/www/taxis/alta1_coches.pl line 53.

El código es el siguiente (bueno, solo la parte que interesa):

Debo aclarar que el arreglo @doc lo estoy definiendo al principio del script:

my @doc = "";

El mensaje me lo manda en el archivo error.log de Apache2 y es solo un Warning, pero como estoy implementando todos mis sistemas en mod_perl, pues es muy exigente y esto lo manejo en muchos de mis scripts.

Cualquier idea es bienvenida.

Gracias.
Negrazo

El valor de $doc[0] es indefinido porque eso es lo que devuelve la llamada a fetchrow_array().

Según el manual de DBI, fetchrow_array() devolverá undef si el campo correspondiente es un NULL (no que no haya encontrado ningún resultado, sino que sí ha encontrado un resultado, pero el primer campo de @doc es un NULL).

Yo probaría a cambiar la primera parte del SELECT por un do(), ya que se trata de una sentencia que solo vamos a emplear una vez.

(no probado)

Estimado explorer:

Gracias por tu ayuda, ya resolví el asunto y realmente tienes razón,

Me esta devolviendo un "null" en el campo $doc[0] y eso es correcto, yo así lo manejo para saber si ese ítem no existe en la base de datos, no encontraba otra forma de probarlo.

Pero con tu respuesta, encontré que simplemente agregando "defined" a la pregunta se arregla y así fue:

=============================================================================================================
if(defined $doc[0] eq "") <---------- aquí está el cambio
{
$con->do("INSERT INTO coches(placas,chofer,sitio,permiso,serie,motor,permisionario,verificacion,revista,refrendo,status ) VALUES('$placas','$chofer','$sitio', '$permiso', '$serie','$motor','$permi', '$verif', '$revista', '$refrendo', 'Activo' )") or die "No pude grabar en Coches";

print "<B>Se grabo el registro del Coche con placas " . $placas . "</B><BR>"; }
else
{ print font ({-size=>'5', -color=>'Red'},'Ya existe un coche con esas placas!');
print "<BR>";
}
=============================================================================================================

Ya lo probé varias veces y mod-perl ya no está arrojando un solo error o warning.

Te reitero mi agradecimiento.

Negrazo.

Lo que has escrito es un error sintáctico. defined() es una función que devuelve verdadero si su argumento no es undef. Y ahí, lo que has puesto, es que su argumento sea el resultado de una comparación.

Lo correcto es lo siguiente:

if (defined($doc[0]) and $doc[0] eq "")