Foro - Perl en Español

Buenas, gente. Necesitaría saber cómo tomar, o mejor dicho, de qué forma vienen los datos en el fetchall_arrayref({}).

Por ejemplo, tengo una tabla con 4 campos y tengo ingresados 10 registros, a la consulta le hago $valores = $consulta->fetchall_arrayref({}). ¿De qué forma puedo extraer toda la información de los campos 2 y 3 de $valores?

Para esto necesitaría saber cómo me devuelven los valores cuando hago un fetchall_arrayref({}). ¿Cómo me los devuelve?

En la documentación me dice que me devuelve todas las filas y las columnas en una referencia a un hash, pero de qué manera leo todas las filas de cada campo, o sea del campo que yo quiero. Sé que esto se puede obtener más fácilmente haciendo un fetchall_hashref({}) pero quiero saber hacerlo con fetchall_arrayref({}).

Gracias perleros por este fantástico foro.

¿Estás seguro que es arrayref y no hashref?

Porque creo que no existe arrayref...

Con

while (my $all = fetchall_hashref())

te da una referencia a la estructura de datos en $all; entonces luego haces

$$all{'nombre'}
$all->{'apellido'}

Cualquiera de los 2 métodos es correcto...

Espero que te sirva.
Saludos
PD: ¿Por qué le colocas un hash ({}) como parámetro?

Sí, sí, es fetchall_arrayref({}). En la documentación está descrito y se utiliza también conjuntamente con HTML::Template para colocar los datos entre las etiquetas <TMPL_LOOP nombre> </TMPL_LOOP>.

Eso lo sabía. Igualmente muchas gracias por contestar.

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!

Ok, gracias, explorer. Ahora tengo una duda: ¿y cómo leo los datos que me tira un fetchall_arrayref({}) ??

A ver si me explico bien: yo hago una consulta a una tabla de Nombre, Apellido, Edad y Sexo. Y genero este código luego de la consulta.


¿Cómo saco de la variable $variable solamente los valores de Nombre, Apellido? No es que quiera hacer esto:



Lo que querría hacer es algo parecido a lo que se hace con el fetchrow_hashref. Se ve en el ejemplo de monoswim.

Algo como que dé $nombres = $variable[Nombre] y que $nombres sea un string con todos los nombres.

No sé si me explico bien pero quiero leer los valores del fetchall_arrayref({}); de una manera parecida a la que se hace con el fetchall_hashref(); o sea, usando el bucle y demás cosas.

Arriba me dijiste que el fetchall_arrayref devuelve un escalar que es una referencia a un array en que cada elemento contiene un array con los elementos de cada registro.
¿Cómo hago para sacar de este escalar solamente Nombre y Apellido?

Muchas gracias. Esto me sería de gran ayuda. Adiós.

El tema de los arrays es que para tomar los valores no puedes usar nombres, sino el lugar donde está; sería algo como



El primer 0 sería el primer registro,
el segundo 0 sería el nombre y el 1 el apellido...

Por eso yo siempre prefiero usar el hashref porque me es más cómodo usarlo por nombre que por posición...

Saludos
PD: El while es muy conveniente cuando necesitas cambiar la estructura de los datos, si en tu HTML::Template usas la misma estructura que viene desde tu SELECT pues envíar toda la estructura de datos como parámetro...

EDITADO: había un error de sintaxis, eran $$ y no $

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.

Muchísimas gracias, explorer, por la ayuda que me has dado, pero tengo un problemita con esto.



Cuando pongo @nombres[1] me tendría que tirar el registro encontrado número 2, pero no lo devuelve, estará mal algo en mi script, el fetchall_arrayref({}), si lo uso conjuntamente con el LOOP del template anda perfecto, pero cuando quiero sacar solamente todos los nombres como hiciste vos anteriormente, no me muestra nada, o sea la variable @nombres está vacía.

¿Dónde puede estar el error? Gracias.

Hola:

Si ya tienes tu array @nombres como está creado con el código que te proporcionó explorer, entonces para accesar el segundo nombre lo tienes que hacer de la siguiente manera:



Saludos

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.