Cuestión : Agregar los jefes del arsenal a CSV

Hola, me estoy preguntando cuál sería el formato apropiado del código agregar los jefes de la columna del arsenal en el archivo de CSV.  Wilcoxon era bastante agradable proporcionar la escritura de CSV que los trabajos perfeccionan y el código es mencionado debajo.  ¡Gracias por su ayuda! class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
>use notpretty " del class= " del id= " codeSnippet822430 del 
”, $out_file o morir “no podría escribir $out_file: ¡$! ”;
# operaciones de búsqueda el DBD:: Oracle doc. para la secuencia correcta de la conexión
mi $dbh = DBI->connect (...);
# usted necesidad de cambiar la pregunta a lo que usted quiere
mi $sql = “col1 selecto, col2, col3 de la tabla donde x = y”;
mi $sth = $dbh->prepare ($sql);
$sth->execute;
mientras que (mi $row = $sth->fetchrow_arrayref) {
    el impreso ensambla (“,”, el mapa {s {“} {""} g; ” \ “$_ \ ""; } @$row),” \ n ";
}
$sth->finish;
$dbh->disconnect;
class= del

Respuesta : Agregar los jefes del arsenal a CSV

La manera más simple de conseguir los jefes de la columna en el CSV (a menos que use columnas del comodín en el sql selecto) sería agregar una línea después de la línea 10:

imprimir “col1, col2, col3 \ n”; # cualesquiera columnas usted selecto en el sql en la línea 10

Para conseguir los nombres de columna programmatically es más difícil (eg. No puedo recordar de la tapa de mi cabeza y tendré que mirarla para arriba).
Otras soluciones  
 
programming4us programming4us