1

モジュールDBD::CSV v0.30 に問題があります。newes バージョンへの更新以降、fetchrow_hashref で生成されたハッシュのすべてのヘッダーは、大文字小文字混合ではなく小文字になります。

最後に、データは mysql データベースにコミットされ、列ヘッダーは大文字と小文字が混在する必要があります。

これは、DBD::CSVを使用したスクリプトのスニペットです。

my $csv_dbh = DBI->connect("DBI:CSV:f_dir=\.;csv_eol=\n");
$csv_dbh->{f_dir} = $ElementConfig->{_DIR} if defined($ElementConfig->{_DIR});
$csv_dbh->{csv_sep_char} = "$Seperator" if (defined($Seperator));
$csv_dbh->{csv_eol} = $csv_eol if (defined($csv_eol));
$csv_dbh->{csv_allow_whitespace} = $csv_allow_whitespace if (defined($csv_allow_whitespace));
my $CSV_Select;
unless (defined($ref_FullSQLSt)) { 
    // Standard "SELECT * FROM filname.txt"
    $CSV_Select = "SELECT ".${$ref_CSVSelect}." FROM $File ".${$ref_CSVWhere};
} else {
    $CSV_Select = ${$ref_FullSQLSt};
}
my $sth = $csv_dbh->prepare($CSV_Select);
my $res = $sth->execute();
while (my $row = $sth->fetchrow_hashref()) {
    my $PKeys = $index;
    if (defined($ElementConfig->{_FILES}->{$File}->{_dkey})) {
        my $NewPKeys = "";
        for my $key (split (/\s*\,\s*/,$ElementConfig->{_FILES}->{$File}->{_dkey})) {
            if (defined($row->{$key})) {
                $NewPKeys .= $row->{$key};
            }
        }
        $PKeys = $NewPKeys if ($NewPKeys);
    }

    unless (defined($DataHash->{$DBConfig->{TBLPREFIX} . $ElementConfig->{_FILES}->{$File}->{_dtbl}}->{$PKeys})) {
        $DataHash->{$DBConfig->{TBLPREFIX} . $ElementConfig->{_FILES}->{$File}->{_dtbl}}->{$PKeys} = $row;
        $index ++;
    }
}

これは csv ファイルのスニペットです。

CELL    DATE    avgRxLevUl  avgRxLevDl  RXQUALUL0 
RTAL3D  08.12.2009 15:50    -96.25072834    -92.32065149    179594

実際の fetchrow_hashref は次のようになります。

$var-> {
   'cell' => 'RTAL3D',
   'date' => '08.12.2009',
   'avgrxlevu1' => -96.25072834
   ...
}

$sth->fetchrow_hashref() メソッドでいくつかのことを試しました。パラメータ「NAME」、「NAME_lc」、「NAME_uc」を使用しました。最初と 2 番目はヘッダーを小文字に変換し、3 番目は大文字に変換します。

ご協力いただきありがとうございます。

4

1 に答える 1

4

を使用している場合は、識別子を小文字q(SELECT * FROM tbl)に変換します。SQL::Statementこれは、処理中の内部的な問題のために必要でした。大文字と小文字が混在する列名を取得するには、必要な名前でクエリを実行します。

q(SELECT CELL, DATE, avgRxLevUl, avgRxLevDl, RXQUALUL0 FROM tbl).
于 2010-07-28T10:10:12.330 に答える