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

kimmy

2011-02-09 10:44

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

Hallo renne,

vielen Dank für deine Antwort. Ich habe dein Code wie folgt geändert und es läuft super!

Code (perl): (dl )

while ( my $set = $search->fetchrow_hashref ) {

Aber leider ist es mir noch nicht klar, wie die Ergebnisse in der DB-Tabelle geschrieben werden können, falls die Anzahl von Felder unbekannt ist. Eigentlich habe ich mir gedacht, nach Anzahl von Fleder die 'elsif' Schleife :

Code (perl): (dl )

my @anzahl;
for my $key ( keys %new ) {
      my $all_strings = join " ", @{ $new{$key}->{strings} };
      my $length      = $new{$key}->{length};
      print "$key\t$all_strings\t$length\n";
      push @anzahl, $key;
}

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(...);
}
...

Gibe es vielleicht noch klügere, effizientere Lösung??