Verständnisproblem mit einer komplexen Datenstruktur - #183646 (Allgemeines zu Perl)

roli

2016-01-26 13:32

User since
2004-12-31
424 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

ich habe ein Problem mit einer komplexen Datenstruktur, bei der ich nicht weiter komme.
Ich bearbeite derzeit eine Datenbank, für die ich mir folgende Datenstruktur aufgebaut habe. So läuft es auch wie gewünscht:

Code (perl): (dl )

my %name_option = (
    "Kurz Bezeichnung der Tabelle"   => {
        "tbl_name"    => "xz2d4",           # Name der Tabelle in der DB
        "tbl_cols" => [                     
            "ID",
            "Datum",
            "Vorname",
            ...
        ]
    }
    ...
)

Damit baue ich mir u.a. Querys zusammen:

Code (perl): (dl )

1
2
3

my $select_handle = $dbh->prepare("SELECT " .
    join(", " , @{$name_option{$name}{"tbl_cols"}}) .
    " FROM [$mdb_tbl];");

Das mag jetzt nicht die eleganteste Lösung sein, aber das ist nicht das Problem. Bis hier läuft ja alles wie gewünscht.
Ich benötige jetzt aber auch die "Spaltenbreiten" der einzelen Felder, daher war meine Idee das ganze so zu lösen:

Code (perl): (dl )

my %name_option = (
    "Kurz Bezeichnung der Tabelle"   => {
        "tbl_name"    => "xz2d4",           # Name der Tabelle in der DB
        "tbl_cols" => [                     
            {"name" => "ID",      "breite" => 10},
            {"name" => "Datum",   "breite" => 8},
            {"name" => "Vorname", "breite" => 20},
            ...
        ]
    }
    ...
)

Was muss ich dann ändern um mir die Query wie zuvor zu bauen? Ich habe damit schon einige Zeit verbracht, ohne weiter zu kommen.
Daher habe ich erstmal die Spaltenbreiten erstmal nicht in dem HoHoAoH (stimmt das?) abgelegt. Ich habe also eine Lösung die läuft, aber ich würde halt gerne verstehen wie ich es mit der geänderten Datenstruktur hinbekommen würde.

Danke

Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2