Foro - Perl en Español

fetchall_arrayref y fetchall_hashref existen. Los dos devuelven toda la consulta (no es necesario hacer ningún bucle como indica monoswim). La diferencia entre ellos es que el primero devuelve un escalar que es una referencia a un array en que cada elemento contiene un array con los elementos de cada registro. Y el segundo devuelve una referencia a un hash en que las claves son los valores del campo indicado como índice en la llamada a la función. Y los valores correspondientes a esas claves son a su vez hashes conteniendo los valores de cada registro, indexados por los nombres de los campos de la consulta (¡uff!).

Os recuerdo: ¡Data::Dumper es nuestro amigo!

A ver si lo aclaramos:


devuelve la estructura que te comenté antes: una referencia a un array de arrays. Así, para sacar el tercer campo del quinto registro, es


Si solo nos interesa el primer campo de todos los registros:


Si solo nos interesa los dos últimos campos:


Otra cosa distinta es lo que comentas:

La presencia del hash anónimo ({}) provoca que el resultado sea una referencia a un array en que cada elemento es un hash anónimo en que las claves son los nombres de los campos. Así, para sacar el Nombre del registro número 2341 es:



Si solo nos interesan los campos de Nombre y Apellidos, entonces lo llamamos así:


Pero en estos casos en los que solo nos interesan ciertos campos, es mucho mejor rehacer la consulta SQL para que nos devuelva los campos interesantes, y luego hacer el fetchall, sin restricciones.

Si, una vez que tienes toda la información sacada con el fetchall, quieres obtener, en una variable separada, todos los nombres, entonces depende de la estructura que le pediste a fetchall. Así, si usaste la forma fetchall_arrayref();, entonces debemos saber qué posición ocupa el campo Nombre dentro de la consulta. Si suponemos que es el primer campo, entonces con



Si, en cambio, usamos fetchall_arrayref({});, entonces será



Una vez que tienes todos los @nombres, puedes meterlos todos en un único escalar, con join:



Y en cuanto al HTML::Template, hay módulos como el HTML::Template::Associate, que ayudan mucho en la presentación de datos de una consulta en una plantilla HTML. De hecho, se hace todo en unas pocas líneas.

A ver si con un ejemplo nos aclaramos más...



La salida (en mi caso) es:

Código: Seleccionar todo

atari@aprosi43:~/desarrollo/perl$ ./fetchall.pl
Número de registros: 17
ASCENSORES ENOR
$VAR1 = [
          'ASCENSORES EMBARBA',
          'ASCENSORES ENOR',
          'ASCENSORES HELVETIA',
          'ASCENSORES INELSA ZENER',
          'ASCENSORES ORONA',
          'ASCENSORES SCHINDLER, S.A.',
          'ASCENSORES ZENER',
          'CASTELLANA DE ASCENSORES',
          'HERAS ELEVADORES, S.L.',
          'HERMON ELEVADORES, S.L.',
          'INELTRA, S.L.',
          'IZA ELEVADORES, S.L.',
          'MELCO ASCENSORES',
          'SISCYL S.L. SUBVENCIONES',
          'THYSSEN KRUPP ELEVADORES, S.A.',
          'ZARDOYA OTIS, S.A.',
          'ZARDOYA OTIS, S.A.'
        ];

ASCENSORES ENOR

En caso de duda sobre lo que contiene una variable, usar Data::Dumper.