Vraag : Voeg de kopballen van de Serie aan CSV toe

Hello, ben ik wat benieuwd het juiste codeformaat zou zijn om de kolomkopballen van de serie in het Csv- dossier toe te voegen.  Wilcoxon was aardig genoeg om het manuscript te verstrekken CSV dat perfect werkt en de code is hieronder vermeld.  Dank voor uw hulp!
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
strikte 
use;
gebruiks waarschuwingen;
gebruik DBI;
# verander $out_file in weg/naam u wilt
mijn $out_file = „output.csv“;
open UIT, „>“, kon $out_file of de matrijs „geen $out_file schrijven: $! “;
# raadpleging DBD:: Doc. van Oracle voor het correcte verbindingskoord
mijn $dbh = DBI->connect (...);
# moet u de vraag in wat veranderen u wilt
mijn $sql = „uitgezochte col1, col2, col3 van lijst waar x = y“;
mijn $sth = $dbh->prepare ($sql);
$sth->execute;
terwijl (mijn $row = $sth->fetchrow_arrayref) {
    print OUT treedt toe („,“, kaart {s {„} {""} g; “ \ „$_ \ ""; } @$row),“ \ n ";
}
$sth->finish;
$dbh->disconnect;

Antwoord : Voeg de kopballen van de Serie aan CSV toe

De eenvoudigste manier zou om de kolomkopballen in CSV (tenzij gebruikend vervangingskolommen in uitgezocht te krijgen sql) zijn een lijn na lijn 10 toe te voegen:

print OUT „col1, col2, col3 \ n“; # de kolommen u uitgezocht in sql bij lijn 10

Om de kolom te krijgen is de namen programmatically moeilijker (b.v. Ik kan niet me van de bovenkant van mijn hoofd herinneren en zal moeten kijken het omhoog).
Andere oplossingen  
 
programming4us programming4us