Questione : Aggiungere le intestazioni di allineamento a CSV

Ciao, sto domandandomi che cosa la disposizione adeguata di codice sarebbe aggiungere le intestazioni della colonna dall'allineamento nella lima di CSV.  Wilcoxon era abbastanza piacevole da fornire lo scritto di CSV che gli impianti perfezionano ed il codice è elencato sotto.  Ringraziamenti per il vostro aiuto! class= > " libero " 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 morire “non potrebbe scrivere $out_file: $! „;
# occhiata il DBD:: Documenti di Oracle per la stringa corretta del collegamento
mio $dbh = DBI->connect (...);
# voi necessità di cambiare la domanda a che cosa volete
mio $sql = “col1 prescelto, col2, col3 dalla tabella dove x = y„;
mio $sth = $dbh->prepare ($sql);
$sth->execute;
mentre (mio $row = $sth->fetchrow_arrayref) {
    la stampa FUORI si unisce (“,„, programma {s {“} {""} g; „ \ “$_ \ ""; } @$row),„ \ n ";
}
$sth->finish;
$dbh->disconnect;
class= del

Risposta : Aggiungere le intestazioni di allineamento a CSV

Il senso più semplice entrare le intestazioni della colonna nel CSV (a meno che utilizzando le colonne del carattere sostitutivo nello sql prescelto) sarebbe di aggiungere una linea dopo la linea 10:

stampare FUORI “col1, col2, col3 \ n„; # che cosa colonne voi prescelto nello sql alla linea 10

Per ottenere i nomi di colonna programmatically è più difficile (per esempio non posso ricordarmi fuori dalla parte superiore della mia testa e dovrò osservarlo in su).
Altre soluzioni  
 
programming4us programming4us