Array auslesen (Allgemeines zu Perl)

[thread]14562[/thread]

Array auslesen

Leser: 28

Articles: hide open all | hide show old branches

+23 replies
mteffenh

2010-01-29 11:58

User since
2010-01-29
5 Artikel
BenutzerIn

Hallo

ich habe mir ein kleines Skript gebastelt, daß verschiedene Werte aus verschiedenen Arrays darstellen sollte. Die Daten kommen aus einer Datenbank und werden mit einem entsprechenden Skrip mittels push angefügt.

@PTage enthält die Datumsangeben (in Unixtime)
@Wert enthält den jeweiligen Wert des Datums (1-5)
@Titel enthält den jeweiligen Titel (A oder B).

Das ganze wird in eine Unterroutine übergeben.

@Titel beinhaltet nur einen Namen. Das Skript soll jetzt unterteilten und jeweils nach Namen eine Auflistung machen, das bedeutet, das Programm muss unterscheiden können, wann bei @Titel der Titel B kommt, dazu muss er dann aus den vorhergehnden Arrays (@PTage, @Wert) die entsprechende Werte hausnehmen.

Beispiel:
ich bekomme diese Werte aus der Datenbank zurück und habe sie in die Arrays mit push angehängt:
@PTage=1264633200 1264719600 1264633200 1264719600
@WErt=2 2 3 3
@Titel: A A B B

Wie bringe ich nun ein Ergebnis zusammen das in etwa so aussieht:
A: 1264633200 1264719600 2, 2
B: 1264633200 1264719600 3, 3

Bei zwei gleichen Werten von Titel muss er mir die ersten beiden Elemente aus @PTage und @Wert anzeigen, bei den anderen beiden die letzten beiden Werte. Allerdings können sich die Anzahl der ausgegebenen Datensätze aus der Datenbank zwsichen 1 und nn bewegen.

Danke für Eure Hilfe
Michael
- +16 replies
- bianca
  
  2010-01-29 12:19
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Vielleicht mit einem mehrdim. Hash?
  
  $hash{Titel}{Wert} = PTag
  
  Ungetestet:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  # Verdichten: my %hash; for (my $zz = 0; $zz < scalar @PTage; $zz ++) { $hash{$Titel[$zz]}{$Wert[$zz]} = $PTage[$zz]; } # Ausgeben: foreach my $temp (sort {$a cmp $b} keys %hash) { print "$temp:"; my $werte = ''; foreach my $temp2 (keys %{$hash{$temp}}) { $werte .= " $temp2"; print " $hash{$temp}{$temp2}"; } print "$werte\n"; }
  
  Edit: Code ergänzt. Ob der wohl funktioniert?
  Last edited: 2010-01-29 12:34:17 +0100 (CET)
  10 print "Hallo"
  20 goto 10
  - +10 replies
  - havi
    
    2010-01-29 12:48
    User since
    2003-08-04
    2036 Artikel
    BenutzerIn
    
    2010-01-29T11:19:23 bianca
    
    Code (perl): (dl )
    
    1 2 3
    
    for (my $zz = 0; $zz < scalar @PTage; $zz ++) { $hash{$Titel[$zz]}{$Wert[$zz]} = $PTage[$zz]; }
    
    Versuche C-Stil Schleifen zu vermeiden:
    
    Code (perl): (dl )
    
    1 2 3
    
    for my $zz (0 .. scalar @PTage) { $hash{$Titel[$zz]}{$Wert[$zz]} = $PTage[$zz]; }
    
    Perl-Zeitung - http://perl-zeitung.at/
    Perl-Blog - http://usr-bin-perl.blogspot.com/
    - +8 replies
    - Hagen
      
      2010-01-29 12:56
      
      User since
      2007-09-06
      233 Artikel
      BenutzerIn
      
      2010-01-29T11:48:40 havi
      ... Versuche C-Stil Schleifen zu vermeiden ...
      
      Was ist denn an "Schleifen im C-Stil" schlecht, dass man diese vermeiden sollte?
      Gruß
      Hagen
      - +7 replies
      - pq
        
        2010-01-29 12:59
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        sie sind schlicht und einfach schlechter lesbar. perl bietet da eine schönere alternative, bei der man auf einen blick sieht, was passiert, wogegen man bei einer c-style-loop erst den schleifenkopf durchgucken muss.
        wenn ich so eine schleife sehe, nehme ich an, dass sie aus einem bestimmten grund verwendet wurde, z.b. wenn man pro durchlauf um 2 inkrementieren will, in so einem fall geht es nämlich nicht anders.
        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
        
        +6 replies
        
        Hagen
        
        2010-01-29 13:05
        
        User since
        2007-09-06
        233 Artikel
        BenutzerIn
        
        Ohne deine Aussage abwerten zu wollen: also "nur" Lesbarkeit, kein 'technischer' Hintergrund.
        
        Code (perl): (dl )
        
        1 2 3
        
        for my $zz (0 .. scalar @PTage) { $hash{$Titel[$zz]}{$Wert[$zz]} = $PTage[$zz]; }
        
        Hier hat sich allerdings noch ein kleiner Fehler eingeschlichen, in der Schleife wird ein Element zu viel bearbeitet, da "scalar" die Anzahl der Elemente zurück gibt, die Zählung aber schon bei 0 beginnt. Also besser:
        
        Code (perl): (dl )
        
        1 2 3
        
        for my $zz (0 .. $#PTage) { $hash{$Titel[$zz]}{$Wert[$zz]} = $PTage[$zz]; }
        
        ... pq war schneller ...
        Gruß
        Hagen
        
        +5 replies
        
        pq
        
        2010-01-29 13:11
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2010-01-29T12:05:47 Hagen
        Ohne deine Aussage abwerten zu wollen: also "nur" Lesbarkeit, kein 'technischer' Hintergrund.
        
        naja, die perl-schleife ist ausserdem noch schneller, aber das kann ich halt nicht mit sicherheit sagen, da sowas auch immer vom system und der perl-version abhängt. als ich das vor einiger zeit mal mit 5.8 unter linux gebenchmarkt hatte, war das signifikant schneller als mit c-style.
        und lesbarkeit ist insofern ein wichtiger punkt, denn dadurch zeichnet sich eine sprache eben aus.
        map und grep z.b. sind konstrukte, die etwas viel lesbarer machen können, wofür man in anderen sprachen umständlich erst ein array deklarieren muss und dann in einer schleife jeweils ein push machen muss.
        perl ist sehr ausdrucksstark, und wenn einem lesbarkeit egal wäre, könnte man auch C verwenden.
        
        edit: im übrigen schleicht sich bei c-style auch leichter ein fehler ein, nur hat havi hier bewiesen, dass das auch bei der perl-variante passieren kann =)
        
        [...]
        
        Quote
        Hier hat sich allerdings noch ein kleiner Fehler eingeschlichen
        
        sagte ich ja schon. der fehler kam aber nicht von mir.
        Last edited: 2010-01-29 13:12:48 +0100 (CET)
        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
        
        Taulmarill
        
        2010-01-29 13:14
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Ich hab´s mir mal auf einem perl 5.8.8 angeschaut:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        $ time perl -le'for my $i( 0 .. 10_000_000 ){ 1 }' real 0m1.014s user 0m0.940s sys 0m0.004s $ time perl -le'for(my $i= 0; $i <= 10_000_000;$i++ ){ 1 }' real 0m1.532s user 0m1.532s sys 0m0.000s
        
        Fällt aber i.d.R. nicht wirklich auf, da eine Schleife meist noch mehr macht, als nur einen Integer hoch zu zählen.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        +3 replies
        
        havi
        
        2010-01-29 14:47
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2010-01-29T12:11:26 pq
        edit: im übrigen schleicht sich bei c-style auch leichter ein fehler ein, nur hat havi hier bewiesen, dass das auch bei der perl-variante passieren kann =)
        
        Sorry, natürlich $#@PTage ;)
        
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
        
        +2 replies
        
        renee
        
        2010-01-29 16:33
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Ohne das "@". Einfach nur $#PTage
        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/
        
        havi
        
        2010-01-29 21:37
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2010-01-29T15:33:28 renee
        Ohne das "@". Einfach nur $#PTage
        
        OK, jetzt wirds peinlich... man sollte es besser selbst schreiben, als copy & paste zu machen und es dann nicht zu korrigieren ;)
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
    - pq
      
      2010-01-29 12:56
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      deine schleife geht von 0 bis zur anzahl der elemente, also eins zuviel. so eine schleife macht man so:
      
      Code (perl): (dl )
      
      for my $zz (0 .. $#PTage)
      
      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
  - +5 replies
  - renee
    
    2010-01-29 12:52
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    damit verlierst du die Reihenfolge... Nimm Arrayreferenzen in dem Hash.
    
    Ich würde eine Datenstruktur aufbauen, die in etwa so aussieht:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    %Info = ( A => { InternalCounter = 1, PTage => [ ... ], Date => [ ... ], }, B => { InternalCounter = 2, PTage => [ ... ], Date => [ ... ], } )
    
    Und dann:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    for my $Title ( sort { $a->{InternalCounter} <=> $b->{InternalCounter} } keys %Info ) { my $String = $Title . " " . join ( " ", @{ $Info{$Title}->{PTage} } ) . " " . join( ", ", @{ $Info{$Title}->{Date} } ); print $String; }
    
    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/
    - +4 replies
    - mteffenh
      
      2010-01-29 14:33
      
      User since
      2010-01-29
      5 Artikel
      BenutzerIn
      
      Hallo
      
      nun ... jetzt bin ich verwirrt.
      egal, was ich ausprobiere, es funktioniert nicht so, wie ich mir das vorstelle. Ich denke, der einfachste weg wird sein, in dem Subprogramm noch einmal für die Auswertung die Datenbankabfragen zu machen bevor ich die Zusammenfassung darstellen kann.
      
      bei 'scalar @PTage' von bianca erhalte ich bei einem durchlauf den richtigen wert, sind es zwei oder mehrer durchläufe stimmt es dann nicht mehr.
      
      Meine bisherige Idee war so ähnlich wie die von Renee, aber auch da gibt es einige Probleme, vor allem bei der Weiterbearbeitung (GD::Graph), denn jetzt habe ich bei der Erstellung der Diagramme einen Fehler.
      
      Aber es ist Wochenende, hier arbeiten jetzt nur noch wenige Leute also hat man Zeit um damit etwas zu spielen.
      
      Danke
      Michael
      - +3 replies
      - bianca
        
        2010-01-29 14:37
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Auch wenn es keine Antwort auf Deine Frage ist, ich schreib es trotzdem: Hast Du die Möglichkeit, die Daten aus der DB gleich in geeigneter Form zu bekommen, um diese Array-Schieberei zu vermeiden?
        Wie genau werden sie denn in GD::Graph gebraucht?
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        mteffenh
        
        2010-01-29 14:58
        
        User since
        2010-01-29
        5 Artikel
        BenutzerIn
        
        Erklärung:
        
        In der Datenbank werden erfasst, wie viele Gäste an welchem Tag hier bei uns waren. Damit man einen Vergleichswert gegenüber dem Vorjahr hat (die Daten sind jetzt nachträglich in die Datenbank eingespeichert worden), benötigt man einen Vergleich:
        
        Welcher Wochentag war vor 1 Jahr
        Welche Wetterkennzahl war vor einem 1 Jahr an diesem Tag
        Welche Besonderheiten waren (Feiertag, Ferien)
        Wie viele Gäste waren hier heute - vor einem Jahr.
        
        Diese ganzen Daten werden aus der Datenbank heraus gesucht und in Tabellen ausgegeben, in einer Detail-Übersicht und in einer Übersicht, die eine Zusammenfassung darstellt.
        
        Nun will man aber diese Darstellung auch noch in grafischer Auswertung erhalten, ohne noch mal die 200 Zeilen für die Datenbankabfrage noch mal zu schreiben. Für die Grafik verwende ich GD::Graph, was auch in so weit ohne Probleme funktioniert, so lange man nur eine Firma auswertet und das auch nur über einen einzigen Tag, mit max. einem vergleichswert.
        
        Nehme ich die zweite Firma dazu (oder alle fünf) dann erhalte ich zwar zwei (oder fünf) Grafiken mit den gleichen Werten, also nicht in die einzelnen Firmen unterteilt.
        
        Werte ich nun zwei Firmen über einen Tag aus, bekomme ich Werte:
        (zwei Firmen, 1 Tag)
        Tag Tag, WKZ WKZ, FirmaA FirmaB
        
        (fünf Firmen, 1 Tag)
        Tag Tag Tag Tag Tag, WKZ WKZ WKZ WKZ WKZ, FirmaA FirmaB FirmaC FirmaD FirmaE
        
        (WKZ=Wetterkennzahl)
        
        Meine Idee war nun:
        FirmaA Tag(1) WKZ(1)
        FirmaB Tag(2) WKZ(2)
        ....
        
        Also eine Zusammenfassung je nach Firma, mit den Tagen und den WKZ (+ dem anderen Zeug).
        
        Mit einer Schleife funktioniert das nicht, warum auch immer. Ich hatte gedacht, ich mache einen Vergleichswert und wenn aus FirmaA eine FirmaB wird, soll zuvor die Grafik erstellt werden (für FirmaA), dann weitermachen. Allerdings stimmen dann die Werte nicht mehr überein.
        
        bianca
        
        2010-01-29 15:13
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Das ist was für sid burn.
        Der antwortet gleich mit komplett fertigem Code, warte mal ab :)
        Und meistens ziemlich genial.
        
        Ich schaffs heute leider nicht mehr.
        Schönes WE!
        10 print "Hallo"
        20 goto 10
- mteffenh
  
  2010-01-29 16:31
  
  User since
  2010-01-29
  5 Artikel
  BenutzerIn
  
  ich glaube es gelöst zu haben ...
  
  Ich ermittel die Anzahl der Titel (FirmaA, FirmaB)
  
  für jede dieser Firma hole ich mir nun die Anzahl der Daten aus dem Array in dem ich die Gesamtzahl der Daten durch die Anzahl der Firmen teile.
  
  mit einer for schleife fange ich bei 0 an, gehe so lange durch, bis ich die Anzahl der durch die Firmen geteilte Elemente durchschritten habe, löse dann die erstellung der Grafik aus und mache mit der nächsten weiter.
  
  Zumindest werden jetzt nicht mehr eine Grafik mit allen Daten erstellt, sondern je Firma eine Grafik, die (so sieht's aus) auch noch stimmt. :)
  
  Danke
  Michael
- +5 replies
- topeg
  
  2010-01-29 16:43
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  So könnte man es machen:
  
  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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49
  
  #!/usr/bin/perl use strict; use warnings; # die Daten my @PTage=qw(1264633200 1264719600 1264633200 1264719600); my @WErt=qw(2 2 3 3); my @Titel=qw(A A B B); # reorganisieren: my %liste=(); # alle Werte durch gehen for my $pos (0..$#PTage) { my $titel=$Titel[$pos]; my $wert=$WErt[$pos]; my $ptage=$PTage[$pos]; # wenn der eintrag im Hash noch nicht existiert, # dann anlegen unless(exists($liste{$titel})) { # als Wert wird ein anonymer Hash eingefügt, # der die nötigen Einträge enthält $liste{$titel}={werte=>[], ptage=>[]} } # die Werte hinzufügen push(@{$liste{$titel}->{werte}},$wert); push(@{$liste{$titel}->{ptage}},$ptage); } render_daten(%liste); ######################################################################## sub render_daten { my %liste=@_; # die Schlüssel (Titel) sortieren # und einzeln durch gehen for my $titel (sort keys(%liste)) { my @werte=@{$liste{$titel}->{werte}}; my @ptage=@{$liste{$titel}->{ptage}}; # mach was mit den Werten: printf("%s: %s %s\n",$titel, join(' ',@ptage), join(', ',@werte)); } }
  
  Es ist wahrscheinlich sinnvoll die Daten nicht erst in drei Arrays zwischen zu speichern sondern direkt in den Hash zu packen.
  Das kannst solltest du in der Schleife können, in der du die Daten aus der Datenbank ließt.
  - +4 replies
  - renee
    
    2010-01-29 16:52
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Dieser Teil:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    unless(exists($liste{$titel})) { # als Wert wird ein anonymer Hash eingefügt, # der die nötigen Einträge enthält $liste{$titel}={werte=>[], ptage=>[]} }
    
    ist nicht notwendig. das wird bei den "push"s durch das sogenannte autovivification automatisch erledigt...
    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/
    - +3 replies
    - topeg
      
      2010-01-29 18:46
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Schon klar, aber er ist Anfänger.
      Da ist es verständlicher das noch mal klar zu machen welche Struktur das hat.
      - +2 replies
      - mteffenh
        
        2010-01-30 15:37
        
        User since
        2010-01-29
        5 Artikel
        BenutzerIn
        
        2010-01-29T17:46:31 topeg
        Schon klar, aber er ist Anfänger.
        Da ist es verständlicher das noch mal klar zu machen welche Struktur das hat.
        
        ... Danke für den Anfänger :) ...
        
        Perl mache ich seit etwa 2001, das gesamte Intranet von uns funktioniert darüber (Eingabe, Ausgabe, Auswertungen, Informationsfluss). Das Problem lag hier eher zwischen den Ohren, einfach in eine falsche Richtung gedacht und nicht die einfachen Wege gehen wollen.
        
        topeg
        
        2010-01-30 15:55
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        2010-01-30T14:37:25 mteffenh
        ... Danke für den Anfänger :) ...
        
        Quote
        User since 2010-01-29 5 Artikel
        daher die Annahme, entschuldige.

View all threads created 2010-01-29 11:58.