Foro - Perl en Español

Hola, ando algo confundido, ando queriendo ejecutar una sentencia para después leer todos los registros con el nombre de la columna, un ejemplo sería:



El código que tengo es este



¿ Alguien me podría ayudar ?

Solo tienes que cambiar el '*' por los nombres de las campos que quieres recuperar... es cuestión de lenguaje SQL.

No es lo que quería, lo que yo necesito es que ante cualquier sentencia con comodín o sin el , el script muestre el nombre de columna al mostrar el registro.

Tiene que ser como en el ejemplo porque si hago como vos me decís, el script me tiraría (select id,nombre from articulos):



Pero no me dice el nombre de las columnas leídas. Perdón si no me exprese bien o no entendí nada.

Disculpas. No entendí que lo que querías era obtener el nombre de las columnas.

Según la documentación de DBI, lo puedes obtener así, después de la línea 4:

print "Nombres de columnas: @{ $sth->{NAME} } \n";

$sth->{NAME} contiene una referencia a un array, en que cada elemento de ese array contiene el nombre de cada columna.

Si quieres acceder a una sola columna, puedes escribir esto:

print "Primera columna: $sth->{NAME}->[0] \n";

Más información en la sección Statement Handle Attributes del manual del DBI.

Gracias por la respuesta, explorer, era lo que necesitaba, pero ahora
estoy peor porque no puedo calcular cómo hacer lo que quiero.



Logro marcar bien las columnas pero cuando quiero mostrar los valores ordenados por columna me falla el cálculo al querer usar la función fetchrow_array().

¿ Me podrías explicar cómo debería hacerlo ?

Es muy fácil, solo tienes que modificar la sentencia SQL con una cláusula ORDER BY, para que los resultados salgan ordenados por el campo que tu quieras.

Otra opción sería recuperar todos los datos, meterlos en una estructura compleja de Perl (por ejemplo, un array de arrays) y luego usar sort() para ordenarlos.

Es más fácil que esto lo haga el motor de base de datos, desde luego.

Gracias por la respuesta, explorer, pero necesito hacer lo que dije sin interferir en las sentencias SQL.
Encontré una forma de hacerlo (muy desordenado) pero me gustaría que me explicaras cómo puedo hacer el array de array que mencionaste.

¿Estás seguro de lo que dices? ¿No puedes cambiar

$sth = $n->prepare("select * from articulos");

por

$sth = $n->prepare("select * from articulos order by 'id'");

???

Para hacer el array solo tienes que ejecutar una sentencia

$array_ref = $n->selectall_arrayref("select * from articulos order by 'id'");

Esto devuelve una referencia a un array que contiene referencias a arrays, cada uno de los cuales es un elemento de cada fila del resultado. Y así tienes todo el resultado con solo una instrucción. (Una matriz de dos dimensiones.)

Más información en DBI, buscando por selectall_arrayref.

Sí estoy muy seguro, explorer; con esto ya está. Gracias, explorer.