MySQL Tabelle einlesen & ausgeben (gelöst) - #145514 (Datenbanken und Verzeichnisdienste)

kimmy

2011-02-09 12:08

User since
2010-09-10
87 Artikel
BenutzerIn
[default_avatar]

Nein, die neue Tabelle sieht anders aus. Im Zusammenhang mit dem Beispiel soll die Erg-Tabelle so aussehen:

Code: (dl )

1
2

  Art   | Brf |   Txt
aaa ddd | bbb | ccc fff

Und es gibt noch eine Tabelle, und ich hätte ja gern die Erg-Tabelle mit der Tabelle eine Verbindung setzen.

Code: (dl )

AAA | BBB | CCC | DDD | EEE | FFF
aaa | bbb | ccc | ddd | eee | fff 
aaa | bbb | ccc | ddd | eee | fff 
aaa | bbb | ccc | ddd | eee | fff

Mein Perl-Skript sieht so aus :

Code (perl): (dl )

my @anzahl;
my $tableinhalt = qq!CREATE TABLE daten(!;
for my $key ( keys %new ) {
    my $all_strings = join " ", @{ $new{$key}->{strings} };
    my $length      = $new{$key}->{laenge};
        next unless $key;
        push @anzahl, $key;
        $tableinhalt .= qq!$key varchar ($length) NOT NULL,!;
}

$tableinhalt .= ')';
$tableinhalt =~ s/,\)/\)/;
my $dbtable = $dbh->prepare($tableinhalt);
$dbtable->execute;

if($#anzahl == 0){
      $insertvalue = qq!insert into daten ($anzahl[0]) value(?)!;
      my $sth = $dbh->prepare($insertvalue);
      $sth->execute(...);
}
elsif($#anzahl == 1){
      $insertvalue = qq!insert into daten ($anzahl[0],$anzahl[1]) value(?,?)!;
      my $sth = $dbh->prepare($insertvalue);
      $sth->execute(...);
}
elsif($#anzahl == 2){
      $insertvalue = qq!insert into daten ($anzahl[0],$anzahl[1],$anzahl[2]) value(?,?,?)!;
      my $sth = $dbh->prepare($insertvalue);
      $sth->execute(...);
}
...

Ich hoffe, dasss ich verständlich erklärt habe.