Frage : Reihenüberschriften CSV hinzufügen

Hallo, wundere ich, was das korrekte Codeformat sein, die Spaltenüberschriften von der Reihe in die CSV Akte hinzuzufügen.  Wilcoxon war nett genug, den CSV Index zur Verfügung zu stellen, den Arbeiten vervollkommnen und der Code ist unter aufgeführt.  Dank für Ihre Hilfe! 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

use streng;
Warnungen verwenden;
DBI verwenden;
# Änderung $out_file an, was Weg/Namen Sie wünschen
mein $out_file = „output.csv“;
HERAUS öffnen, „>“, $out_file oder sterben „könnte $out_file nicht schreiben: $! “;
# Nachschlagen das DBD:: Oracle Doc. für die korrekte Anschlussschnur
mein $dbh = DBI->connect (...);
# Sie Notwendigkeit, zu ändern die Frage zu, was Sie wünschen
mein $sql = „auserwähltes col1, col2, col3 von der Tabelle wo x = y“;
mein $sth = $dbh->prepare ($sql);
$sth->execute;
während (mein $row = $sth->fetchrow_arrayref) {
    ausdrucken verbinden („,“, Diagramm {s {„} {""} g; “ \ „$_ \ ""; } @$row),“ \ n ";
}
$sth->finish;
$dbh->disconnect;

Antwort : Reihenüberschriften CSV hinzufügen

Die einfachste Weise, die Spaltenüberschriften in das CSV zu kommen (es sei denn, Wildcardspalten im sql verwendend auserwählt) sein, eine Linie nach Linie 10 hinzuzufügen:

„col1, col2, col3 \ n“ ausdrucken; # was Spalten Sie auserwählt im sql an Linie 10

Zu die Spaltennamen zu erhalten ist programmatically schwieriger (z.B. kann ich nicht weg von der Oberseite meines Kopfes erinnern und müssen sie oben schauen).
Weitere Lösungen  
 
programming4us programming4us