Datenstruktur (Allgemeines zu Perl)

[thread]15631[/thread]

Datenstruktur

Leser: 19

Articles: hide open all | hide show old branches

+5 replies
Gast tcicit

2010-11-15 11:32
Guten Tag

Ich habe eine Frage die vermutlich schon mehr mals gestellt wurde aber leider konnte ich noch keinen Thread dafür finden.

Also, ich möchte eine Liste die ich von einer DB abfrage bekomme eine Tabelle erstellen die wir nachfolgende dargestellt aussehen soll. Ich habe mir vorgestellt das ich die Daten am einfachsten in eine Datenstruktur einlesen kann und dann habe ich sie schon fast formatiert, leider komme ich irgend wie nicht weiter beim abfüllend es Arrays für den Monat.

Liste aus der DB:

Bereich, Jahr, Monat, Wert ========================== Bereich1, 2010, 1, 34 Bereich1, 2010, 2, 45 Bereich1, 2010, 3, 65 Bereich1, 2010, 6, 56 Bereich1, 2010, 7, 45 Bereich2, 2010, 1, 45 Bereich2, 2010, 2, 33

Es sind nicht immer alle Monate ausgefüllt.

Ergebnis:
Code: (dl )

1 2 3 4

Bereich| Jahr | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10| 11| 12| ================================================================== Bereich1| 2010| 34 | 45 | 65 | | | 56| 45| | | | | | Bereich2| 2010| 45 | 33 | | | | | | | | | | |
Ich habe versucht das ganze folgender massen zu füllen:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

while DB-Record lesen { $m[$monat] = $wert; $rec = {} rec->{key} = $bereich . $jahr; $rec->{bereich} = $bereich; $rec->{jahr} = $jahr; $rec-{monate} = [ @m ]; }
Das Problem ist nun das das ganze in einem Loop läuft und ich immer nur den lezten Wert habe. Wie kann man das elegant lösen?

//Modedit GwenDragon: Posting durch CODE-Tags lesbarer gemacht
Last edited: 2010-11-15 12:06:29 +0100 (CET)
- +4 replies
- pq
  
  2010-11-15 11:57
  User since
  2003-08-04
  12208 Artikel
  Admin1
  also wie gut kennst du dich denn schon mit datenstrukturen in perl aus?
  http://p3rl.org/perldata
  http://p3rl.org/perldsc
  http://p3rl.org/perllol
  http://p3rl.org/perlreftut
  
  ich würde das in etwa so machen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  my %sections; while (my $row = $sth->fetchrow_arrayref) { my ($section, $year, $month, $value) = @$row{qw/ Bereich Jahr Monat Wert /}; $sections{$section}->{$year}->{$month} = $value; } for my $section (sort keys %sections) { print "$section |"; my $years = $sections{$section}; for my $year (sort keys %$years) { print " $year|"; my $months = $years->{$year}; my @values = map { defined $months->{$_} ? $months->{$_} : "" } 1 .. 12; local $" = " | "; say "@values"; } }
  
  evtl. noch ein bisschen feintuning bei der ausgabe.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - Gast tcicit
    
    2010-11-15 12:55
    
    Hallo
    
    Erst mal danke für die schnelle Antwort :-)
    Ich werde mir das Code Beispiel noch genauer anschauen. Da ich zwar schon länger mit Perl Scrips schreibe aber bisher immer mit Arrays und einfachen Hashes ausgekommen bin kenne ich mich mit Datenstrukturen noch nicht besonders aus. Bin gerade dabei einen neuen Anlauf zunehmen mit ein par neue Dinge in Perl beizubringen.
    Noch mals vielen dank für das Beispiel.
    Last edited: 2010-11-15 13:16:25 +0100 (CET)
  - +2 replies
  - Gast tcicit
    
    2010-11-16 08:44
    Noch mals ich, das unten aufgeführt Beispiel hat funktioniert. Ich musste nur die Ausgabe noch in ein File um leiten. Danke.
    
    Nun habe ich noch eine zusätzliche Frage, wenn man mal angefangen hat hört es nicht mehr auf ...
    
    Ich habe nun die Idee gehabt das selbe für eine kleine Abfrage zu machen und die Abfrage aber in ein sub auszulagern damit ich sie immer wieder brauchen kann. Das funktioniert soweit auch ganz gut, aber wie komme ich dann im Programm wieder an die Wert?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
    
    my $kap = kapitel(); foreach (sort keys %$kap) { print %{$kap->{$_}->{name}}, "\n"; } sub kapitel { # Daten aus der DB Lesen while (my @row=$sth->fetchrow_array()){ $rec = {}; $rec->{key} = $row[0]; $rec->{name} = $row[1]; $rec->{sort} = $row[2]; $rec->{status} = $row[3]; $inRec{ $rec->{key} } = $rec; } return \%inRec; } # END kapitel
    
    Last edited: 2010-11-16 08:50:27 +0100 (CET)
    - renee
      
      2010-11-16 08:52
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Das äußere "%{}" muss weg, als $kap->{$_}->{name}
      
      Vielleicht wird das deutlicher, wenn Du das Erzeugen des Hashs ein wenig umschreibst:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      sub kapitel { # Daten aus der DB Lesen while (my @row=$sth->fetchrow_array()){ my $key = $row[0]; $inRec{$key}->{key} = $key; $inRec{$key}->{name} = $row[1]; $inRec{$key}->{sort} = $row[2]; $inRec{$key}->{status} = $row[3]; } return \%inRec; } # END kapitel
      
      Last edited: 2010-11-16 08:56:42 +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/

View all threads created 2010-11-15 11:32.