Pergunta : Adicionar encabeçamentos da disposição a CSV

Olá!, eu estou querendo saber qual o formato apropriado do código seria adicionar os encabeçamentos da coluna da disposição na lima de CSV.  Wilcoxon era agradável bastante para fornecer o certificado de CSV que os trabalhos aperfeiçoam e o código está listado abaixo.  Agradecimentos para sua ajuda! class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
>use notpretty " do class= " do id= " codeSnippet822430 do 
”, $out_file ou morrer “não poderia escrever $out_file: $! ”;
# consulta o DBD:: Oracle docs para a corda correta da conexão
meu $dbh = DBI->connect (...);
# você necessidade de mudar a pergunta a o que você quer
meu $sql = “col1 seleto, col2, col3 da tabela onde x = y”;
meu $sth = $dbh->prepare ($sql);
$sth->execute;
quando (meu $row = $sth->fetchrow_arrayref) {
    a cópia PARA FORA junta-se (“,”, mapa {s {“} {""} g; ” \ “$_ \ ""; } @$row),” \ n ";
}
$sth->finish;
$dbh->disconnect;
class= do

Resposta : Adicionar encabeçamentos da disposição a CSV

A maneira a mais simples de começ os encabeçamentos da coluna no CSV (a menos que usando colunas do convite no sql seleto) seria adicionar uma linha após a linha 10:

imprimir PARA FORA “col1, col2, col3 \ n”; # o que colunas você seleto no sql na linha 10

Para começ os nomes de coluna é programmatically mais difícil (por exemplo eu não posso recordar fora da parte superior de minha cabeça e terei que a olhar acima).
Outras soluções  
 
programming4us programming4us