Frage zu Datenstruktur (Allgemeines zu Perl)

[thread]14745[/thread]

Frage zu Datenstruktur

Leser: 22

Articles: hide open all | hide show old branches

+25 replies
Gast Kai

2010-03-01 14:43

Hallo allerseits,

ich möchte eine Protokolldatei auswerten. Der "Key" für den Datensatz ist der HOST-Name.
Die HOST-Namen sollen fortlaufend in dieser Liste (Hash) gespeichert werden PLUS weitere Informationen:
Der Value dieses Keys ist nicht ein einziger sondern mehrere (USER, USER-HOST, TP,...).
Das besondere daran ist, dass (falls die Einträge doppelt in der auszuwerteden Protokolldatei mehrfach vorkommen, diese auch nur 1x in der Struktur abgespeichert werden sollen (Jede Protokollzeile soll nur 1x erfasst werden). Dazu würde sich wieder eine Art Hash anbieten. Zusätzlich sollen für den HOST auch noch die Fehler in einem Array gespeichert werden.

Ich suche nach einer eleganten Möglichkeit diese Datenstruktur in Perl umzusetzen. Da meine Kenntnisse hierzu leider nicht ganz ausreichen wäre ich sehr dankbar wenn mir jemand einen Lösungsvorschlag hierzu machen könnte.

Vielen Dank!
- +24 replies
- pq
  
  2010-03-01 15:03
  User since
  2003-08-04
  12209 Artikel
  Admin1
  wenn pro host jeweils alle zeilen in einem array gespeichert werden sollen, hättest du ein hash of arrays.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my %hosts; # iterieren über zeilen # extrahieren von host, user, tp, ... push @{ $hosts{ $host } }, { user => $user, tp => $tp, };
  
  wenn auch noch nach weiteren keys gesammelt werden soll:
  
  Code (perl): (dl )
  
  1 2 3
  
  # iterieren über zeilen # extrahieren von host, user, tp, ... $hosts{ $host }->{ $user }->{ $tp } = ...;
  
  ausgeben kannst du die datenstruktur zum debuggen erstmal so:
  
  Code (perl): (dl )
  
  1 2
  
  use Data::Dumper; print Dumper \%hosts;
  
  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
  - +23 replies
  - Gast Kai
    
    2010-03-01 15:18
    Wie kann ich dann prüfen, ob ein bestimmtes Programm (TP) bereits für den Host gespeichert wurde?
    
    Mit
    
    Code (perl): (dl )
    
    if(defined $hosts{'HostName'}->{'Programmname'})
    
    gehts nicht...
    
    Danke
    - +22 replies
    - pq
      
      2010-03-01 15:23
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      dann musst du die datenstruktur so aufbauen, dass du pro host wiederum einen hash für tp speichern musst.
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      $hosts{ $host }->{TP}->{ $tp } = 1; # später if (exists $hosts{"example.org"}->{TP}->{blubb}) { ... }
      
      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
      - +21 replies
      - Gast Kai
        
        2010-03-01 15:27
        
        Danke das du mir hilfst!
        
        Kannst du mir dann zeigen, wie man die Datenstruktur dann aufbauen muss?
        
        +20 replies
        
        pq
        
        2010-03-01 15:29
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        hab ich doch gerade gezeigt?
        
        Code (perl): (dl )
        
        1 2
        
        # in der schleife $hosts{ $host }->{TP}->{ $tp } = 1;
        
        wo die die anderen keys speicherst, musst du entscheiden, weil ich nicht weiss, wie du diese abfragen willst.
        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
        
        +19 replies
        
        Gast Kai
        
        2010-03-01 15:34
        
        Mein Gedanke war TP wieder als Hash in diesem Host-Hash zu machen, anstatt mit Hilfe einer Schleife über die Liste zu gehen und dann die Werte wieder prüft. Ich hoffe wir reden nicht aneinander vorbei. ;-)
        
        +18 replies
        
        pq
        
        2010-03-01 15:42
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        genau das macht mein code. ein hash in einem hash.
        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
        
        +17 replies
        
        Gast Kai
        
        2010-03-01 15:44
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        my %hosts; push @{ $hosts{ 'TestHost' } }, { user => 'TestUser', }; use Data::Dumper; print Dumper \%hosts; $hosts{ 'TestHost' }->{TP}->{ 'TestAnwendung' } = 1; use Data::Dumper; print Dumper \%hosts;
        
        Irgendwie gehts aber nicht, ich bekomme den Fehler "Not a hash reference".
        
        +16 replies
        
        pq
        
        2010-03-01 15:47
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        ja wenn du die datenstrukturen mischst, ist das kein wunder. du musst dich schont entscheiden. *entweder* du machst eine liste, wie es mein erster vorschlag war, *oder* du machst innere hashes, dann kannst du detailliertere zugriffe machen. beides geht in derselben datenstruktur nicht. ein hash-value kann nicht arrayref und hashref gleichzeitig sein.
        also warum genau machst du nicht einfach, wie ich es jetzt schon mehrfach gesagt habe, in der schleife:
        
        Code (perl): (dl )
        
        $hosts{ $host }->{TP}->{ $tp } = 1;
        
        ?
        
        edit:
        wenn du die user genauso abfragen willst, ist es demnach:
        
        Code (perl): (dl )
        
        $hosts{ $host }->{USER}->{ $user } = 1;
        
        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
        
        murphy
        
        2010-03-01 15:53
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        2010-03-01T14:47:20 pq
        [...]
        ein hash-value kann nicht arrayref und hashref gleichzeitig sein.
        [...]
        
        Doch, mit overload geht das ;-)
        When C++ is your hammer, every problem looks like your thumb.
        
        +14 replies
        
        Gast Kai
        
        2010-03-01 21:32
        
        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
        
        sub AddUpdateDataSet($;$;$;$) { if(defined $Host_Records{$_[0]}){ print $_[0]." already exists.\n"; } else { $Host_Records{ $_[0] } = 1; if(defined $Host_Records{$_[0]}->{TP}->{$_[1]}) { print "TP does exist\n"; } else { print "TP update\n"; $Host_Records{$_[0]}->{TP}->{$_[1]} = 1; }#else if(defined $Host_Records{$_[0]}->{USERHOST}->{$_[2]}) { print "USERHOST does exist\n"; } else { print "USERHOST update\n"; $Host_Records{$_[0]}->{USERHOST}->{$_[2]} = 1; }#else if(defined $Host_Records->{USER}->{$_[3]}) { print "USER does exist\n"; } else { print "USER update\n"; $Host_Records{$_[0]}->{USER}->{$_[3]} = 1; }#else }#else }#CheckHost
        
        Irgendwo hat sich ein Fehler eingeschlichen, es wird nicht alles gedumpt... :-( Sieht jemand den Fehler?
        
        +13 replies
        
        pq
        
        2010-03-01 22:17
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        was du da machst, ist wieder zwei datenstrukturen vermischen.
        
        du machst das hier:
        $Host_Records{ $_[0] } = 1;
        
        und dann das hier:
        $Host_Records{$_[0]}->{TP}->{$_[1]} = 1;
        
        das ist kein wunder, dass nicht alles gedumpt wird, wenn das mehrmals aufgerufen wird. du setzt Host_Records{ $_[0] } ständig wieder auf 1 (*). damit überschreibst du den zuvor angelegten hash, der durch meine zweite zitierte zeile angelegt wird. wieso tust du das?
        
        vielleicht solltest du mal ein bisschen was zum thema lesen, es kommt mir im moment so vor, als versuchst du code-stücke, die du hier bekommst, einfach zusammenzusetzen, wie es richtig erscheint, aber du weisst nicht, was sie machen.
        http://p3rl.org/perlreftut
        http://p3rl.org/perldsc
        
        (*) edit: bzw. durch deine if-abfrage wird jeder host eh nur einmal behandelt, aber ich dachte, es gäbe mehrere zeilen mit denselben hosts. ich versteh nicht, wieso du eine if-abfrage machst. willst du nicht alle zeilen einfach sammeln? dann lass die if-abfrage und mach einfach
        $Host_Records{$_[0]}->{TP}->{$_[1]} = 1 usw.
        
        vorher prüfen, ob schon was drinsteht, kannst du auch so:
        $Host_Records{$_[0]}->{TP}->{$_[1]} ||= 1
        Last edited: 2010-03-01 22:21:02 +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
        
        +12 replies
        
        pq
        
        2010-03-01 22:24
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        und ums nochmal klarer zu machen: wenn ich richtig verstanden habe, was du tun willst, brauchst du wirklich nichts weiter als das, was ich schon gezeigt habe, nämlich
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        # iteriere über jede zeile $hosts{ $host }->{TP}->{ $tp } = 1; $hosts{ $host }->{USER}->{ $user } = 1; $hosts{ $host }->{USERHOST}->{ $userhost } = 1; ...
        
        natürlich angewendet auf deine variablennamen.
        
        wenn du das nicht willst, musst du einfach klarer machen, was dein ziel ist. wie soll die fertige datenstruktur aussehen?
        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
        
        +11 replies
        
        Gast Kai
        
        2010-03-02 11:36
        
        Ja, genauso habe ich es jetzt auch gemacht.
        Das befüllen der Datenstruktur klappt problemlos.
        Kann mir jemand verraten wie ich mit einer Foreach-Schleife die Datenstruktur auslese? Auf der zweiten Ebene haperts (TP, USER, USERHOST)
        Hier ist mein Ansatz:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        foreach $host (keys %Host_Records) { #print "Zusammenfassung für Host: ".$host."\n"; foreach $tp (keys %Host_Records{TP}) { print $tp; } }
        
        +10 replies
        
        pq
        
        2010-03-02 11:42
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        hast du denn die beiden verlinkten dokus gelesen?
        
        statt
        foreach $tp (keys %Host_Records{TP}) {
        
        foreach $tp (keys %{ $Host_Records{TP}->{$host} }) {
        
        leserlicher wird es damit:
        
        Code (perl): (dl )
        
        1 2
        
        my $tps = $Host_Records{TP}->{$host}; foreach $tp (keys %$tps) {
        
        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
        
        +9 replies
        
        Gast Kai
        
        2010-03-02 11:53
        
        Genau so habe ich es versucht, aber das geht nicht. :-(
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        foreach $host (keys %Host_Records) { print "Zusammenfassung für Host: ".$host."\n"; my $tps = $Host_Records{TP}->{$host}; foreach $tp (keys %$tps) { print "Programm: ".$tp."\n"; } }
        
        Der Rumpf der 2ten foreach-Schleife wird nicht angesprungen.
        
        +8 replies
        
        pq
        
        2010-03-02 12:01
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        Guest Kai
        Der Rumpf der 2ten foreach-Schleife wird nicht angesprungen.
        
        dann steht wohl nichts drin.
        so kommen wir nicht weiter, ich kann nicht hellsehen. poste einen Data::Dumper-output von \%Host_Records.
        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
        
        +7 replies
        
        Gast Kai
        
        2010-03-02 13:26
        
        Code: (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
        
        $VAR1 = { 'sapap12.ka.de.com (sapap12) (172.23.88.136)' => { 'TP' => { 'sapxp' => 1 }, 'USERHOST' => { 'sapapyy.ka.de.yyyyy.com' => 1, 'sapapxx.ka.de.xxxxx.com' => 1 }, 'USER' => { 'CPICUC4' => 1, 'TMSADM' => 1 } }, 'sapap11.ka.de.com (sapap11) (172.23.88.136)' => { 'TP' => { 'Anwendun' => 1, '/usr/sap/AP1/D57/exe/t' => 1, 'rfcexe' => 1 }, 'USERHOST' => { 'sapap11.ka.de.xxxxx.com' => 1 }, 'USER' => { 'DDIC' => 1, 'TMSADM' => 1 } } };
        
        EDIT esskar: formatierung geändert
        Last edited: 2010-03-02 13:32:21 +0100 (CET)
        
        +6 replies
        
        pq
        
        2010-03-02 13:33
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        es muss natürlich umgekehrt heissen:
        my $tps = $Host_Records{ $host }->{TP};
        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
        
        Gast Kai
        
        2010-03-02 15:12
        
        Eine letzte Frage noch...
        
        Code (perl): (dl )
        
        push @{ $Host_Records{ $host}->{USER}{$user}, $_[1];
        
        Wie kann man dieses Array auslesen?
        
        +4 replies
        
        pq
        
        2010-03-02 15:16
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        Guest Kai
        Eine letzte Frage noch...
        
        Code (perl): (dl )
        
        push @{ $Host_Records{ $host}->{USER}{$user}, $_[1];
        
        Wie kann man dieses Array auslesen?
        
        print join ", ", @{ $Host_Records{ $host }->{USER}->{ $user } };
        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
        
        +3 replies
        
        Gast Kai
        
        2010-03-02 15:59
        
        Geht das auch mit einer foreach-Schleife? Der Hintergrund ist, das ich das einzufügende Element mit den vorhandenen vergleichen möchte bevor ich es einfüge.
        
        Danke vielmals für die tolle Hilfe!
        
        +2 replies
        
        pq
        
        2010-03-02 16:05
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        bevor ich das fertige foreach hinschreibe, möchte ich dich bitten, es mal selbst zu versuchen, in du von folgendem beispiel abstrahierst:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        print join ", ", @array; foreach my $item (@array) { ... } print join ", ", @{ $Host_Records{ $host }->{USER}->{ $user } }; foreach my $item (?????????) { ... }
        
        ersetze die fragezeichen mit dem array, über das du iterieren willst.
        
        hast du nun eigentlich die verlinkten dokus gelesen?
        sonst musst du für jede weitere zeile in deinem programm hier nochmal fragen.
        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 Kai
        
        2010-03-02 16:09
        
        Ja habe ich gelesen nur habe ich vermutlich ein Klammer irgendwo vergessen...
        
        Code (perl): (dl )
        
        1 2 3
        
        foreach my $val (@{$Host_Records{ $host}->{USER}{$user}}) { }

View all threads created 2010-03-01 14:43.