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

[thread]15935[/thread]

MySQL Tabelle einlesen & ausgeben [gelöst]

Leser: 27

Articles: hide open all | hide show old branches

+10 replies

kimmy

2011-02-08 16:00

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

Hallo zusammen,

ich möchte folgende MySQL Tabelle einlesen

Code: (dl )

Nr | Old | New | Length
10 | AAA| Art | 100
20 | BBB | Brf | 25
30 | CCC |Txt | 35
40 | DDD |Art | 200
50 | EEE |  | 255
60 | FFF | Txt | 150

und neue Tabelle erstellen. Und die neue Tabelle soll wie folgt aussehen :

Code: (dl )

1
2
3

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

D.h. falls etwas in der Spalte New mehrmals vorkommt, dann werden sie miteinander verbunden und die Length wird addiert.
Und mein Perl-Skript (zum Einlesen) sieht so aus :

Code (perl): (dl )

my $search = $dbh->prepare("SELECT * FROM tblimport");
$search->execute;
my (@rec,@news);

while(@rec = $search->fetchrow_array){
        my @array = join("\t",@rec);
        foreach(@array){
                my ($id,$old,$new,$length,);
                if(/^([^\t]+)\t([^\t]+)\t([^\t]*)\t([^\t]+)$/){
                        $new = $3;
                        if($new){
                            push @news, $_;
                        }
                }
        }
}

Aber leider weiss ich nicht wie ich die neue Tabelle erstellen kann.
Könnt jemand vielleicht mir helfen.
Vielen Dank im Voraus.

modedit Editiert von pq: code-tags statt quote-tags
Last edited: 2011-02-09 12:23:20 +0100 (CET)

+8 replies

renee

2011-02-08 16:17

User since
2003-08-04
14371 Artikel
ModeratorIn

ungetestet:

Code (perl): (dl )

# hole alles aus der Datenbank
my $search = $dbh->prepare("SELECT * FROM tblimport");
$search->execute;

my %new;

# hole jede Zeile als Hashreferenz, damit ueber den Namen zugegriffen werden kann
while ( my %set = $search->fetchrow_hashref ) {

    my $key = $set->{New}; # hole das, was in der Spalte "New" steht

    # schiebe das aus der Spalte "Old" in ein Array
    push @{ $new{$key}->{strings} }, $set->{Old};

    # addiere die Länge
    $new{$key}->{length} += $set->{Length};
}

# gib alles aus
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";
}

Edit:

Das ganze hat mit Referenzen zu tun. Wenn Du damit noch nichts zu tun hattest, sollstest Du Dir perlreftut anschauen.

Edit 2:

Die perlreftut im Wiki scheint es nicht mehr zu geben
Last edited: 2011-02-08 16:20:52 +0100 (CET)

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

+7 replies

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??

+6 replies

renee

2011-02-09 11:08

User since
2003-08-04
14371 Artikel
ModeratorIn

Wie sieht denn die Tabelle "daten" aus? Die Tabelle hat doch sicherlich die drei Spalten, die man auch ausgibt, oder?

Code (perl): (dl )

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";
      
      my $insert_sth = $dbh->prepare( 'INSERT INTO daten (New, Merge, Length) VALUES( ?, ?, ? )' );
      $insert_sth->execute( $key, $all_strings, $length );
}

Falls die Tabelle anders aussieht, solltest Du diese beschreiben...

+5 replies

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.

+4 replies
vstm

2011-02-09 21:46
User since
2010-08-17
4 Artikel
BenutzerIn
So wie ich das verstehe suchst du so etwas (einfach in dynamisch generiertes Insert):
Code (perl): (dl )

1 2 3 4 5 6 7 8

die("keine Feldliste") if @anzahl <= 0; my $insertvalue = "insert into daten (" . join(",", @anzahl) . ") values (" . join(",", ("?") x @anzahl) . ")"; my $sth = $dbh->prepare($insertvalue); $sth->execute(...);
- +3 replies
- kimmy
  
  2011-02-10 08:53
  User since
  2010-09-10
  87 Artikel
  BenutzerIn
  Ja, richtig. Das habe ich gemeint.
  Ich hätte noch eine Frage, ich möchte auch wie folgendes machen :
  
  Code (perl): (dl )
  
  1 2
  
  my $sth = $dbh->prepare($insertvalue); $sth->execute(join(",", @array));
  
  Aber leider dann bekomme ich die Fehlermeldung :
  DBD::mysql::st execute failed: called with 1 bind variables when 4 are needed
  Wie kann ich mein Code ändern?
  - +2 replies
  - renee
    
    2011-02-10 09:33
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    einfach nur
    
    Code (perl): (dl )
    
    1 2
    
    my $sth = $dbh->prepare($insertvalue); $sth->execute(@array);
    
    OTRS-Erweiterungen (http://feature-addons.de/)
    Frankfurt Perlmongers (http://frankfurt.pm/)
    --
    
    Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
    Perl-Entwicklung: http://perl-services.de/
    - kimmy
      
      2011-02-10 09:40
      
      User since
      2010-09-10
      87 Artikel
      BenutzerIn
      
      Super, vielen vielen Dank.

RPerl

2011-02-09 19:03

User since
2006-11-26
384 Artikel
BenutzerIn

Suchst du GROUP BY? :p

View all threads created 2011-02-08 16:00.