Hash of Hashes - Suche/Ausgabe (gelöst) (Allgemeines zu Perl)

[thread]17701[/thread]

Hash of Hashes - Suche/Ausgabe [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+12 replies
Astralkeks

2012-08-27 11:28
User since
2012-07-17
40 Artikel
BenutzerIn
Hallo,

ich möchte aus einem Hash of Hashes ganz bestimmte Elemente ausgeben.
Die Struktur ist auszugsweise hier mit dem Dumper angegeben:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

'192.168.7.222' => { '22' => 1 }, '192.168.21.188' => { '3389' => 1 }, '192.168.23.13' => { '22' => 1, '3389' => 1 }, '192.168.62.36' => { '3389' => 1 }, '192.168.17.148' => { '22' => 1 },
Die IP bildet den ersten Schlüssel, dann existiert innerhalb des ersten Schlüssels für bestimmte betrachtete Ports ein Flag, wenn dieser offen ist.
Es sind auch mehr IPs und Ports als die gezeigten vorhanden, aber zu Testzwecken reichen die Datensätze sicher aus.

Ich möchte einfach z.B. eine Liste aller IPs mit offenem Port 22 erzeugen.
Leider scheiterts bei mir schon mit der Ausgabe, mit HoH habe ich bislang eher wenig gemacht.
Code (perl): (dl )

1 2 3 4 5 6

foreach my $ip ( keys %HoH ) { foreach my $openPort ( keys %{ $HoH{$ip} } ) { print "[ip] $ip [port] $openPort \n"; } } }
Natürlich läufts dann darauf hinaus, $openPort mit 22 zu vergleichen und in ein Array/Datei/sonstwas zu schreiben, aber es gibt bereits keine Ausgabe, also nichts, was ich vergleichen kann.

Vielleicht ein ganz einfach zu behebender Fehler?
- +11 replies
- renee
  
  2012-08-27 11:31
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Generell sieht Dein Code ganz gut aus. Kannst Du ein kleines Skript zur Verfügung stellen, das den Fehler zeigt?
  
  Du kannst einfach überprüfen, der "innere Hash" den Eintrag zur "22" hat:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  for my $ip ( keys %HoH ) { if ( $HoH{$ip}->{22} ) { print "Port 22 bei Host $ip offen\n"; } }
  
  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/
  - +10 replies
  - Astralkeks
    
    2012-08-27 11:48
    
    User since
    2012-07-17
    40 Artikel
    BenutzerIn
    
    Oh mann, ganz dummer Fehler auf meiner Seite!
    Hatte zu Testzwecken viele sub's auskommentiert. Unter anderem die, die den HoH erzeugt. Da ich die Dumperausgabe in ein txt-File geschrieben habe, ist mir nicht aufgefallen, dass der HoH somit leer ist.
    Dumm, aber schult!
    Danke trotzdem! Deine Prüfung findet Verwendung!
    - +9 replies
    - rosti
      
      2012-08-27 13:49
      
      User since
      2011-03-19
      3196 Artikel
      BenutzerIn
      
      Wenn Du map{} magst, damit gehts in eine Zeile
      
      Code (perl): (dl )
      
      1 2
      
      # Abfragen ob der Port als Key exists UND flag == 1 my @p22 = map{$_}grep{exists $Devices{$_}{22} && $Devices{$_}{22} == 1}keys %Devices;
      
      Wobei %Devices der Hash of Hashes ist.
      - pq
        
        2012-08-27 13:58
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wofür das map{$_}?
        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
        
        2012-08-27 15:23
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Das exist brauchst Du hier nicht...
        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
        
        rosti
        
        2012-08-27 15:56
        
        User since
        2011-03-19
        3196 Artikel
        BenutzerIn
        
        Ok, das map{} kann weg, aber das exists bleibt ;)
        
        Weil: Es den Key, der abgefragt wird, nicht immer gibt. Ein Abfrage
        
        Code (perl): (dl )
        
        $hash{22} == 1 ?
        
        würde sonst eine Fehlermeldung erzeugen.
        
        +3 replies
        
        pq
        
        2012-08-27 15:59
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        defined wäre dann aber angebrachter als exists
        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
        
        +2 replies
        
        rosti
        
        2012-08-27 16:07
        
        User since
        2011-03-19
        3196 Artikel
        BenutzerIn
        
        2012-08-27T13:59:47 pq
        defined wäre dann aber angebrachter als exists
        
        Darüber können wir uns steiten ;)
        
        Mit exists frage ich ab, ob es den key gibt.
        Mit defined frage ich ab, ob es zum key einen definierten Wert gibt.
        
        Also, ich finde es zweckmäßiger, abzufragen, ob es den key gibt ;)
        
        pq
        
        2012-08-27 16:32
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        du sprachst davon, eine fehlermeldung vermeiden zu wollen. um also eine warnung wegen uninitialized value zu vermeiden, wäre defined angebrachter. exists vermeidet da gar nix.
        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
      - +2 replies
      - pq
        
        2012-08-27 16:48
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        wenn ich das machen würde, sähe das vermutlich so aus:
        my @p22 = grep { ( $Devices{$_}->{22} || 0 ) == 1 } keys %Devices;
        
        falls der wert immer nur 1 ist und ansonsten der port-key gar nicht existiert (oder der wert 0 ist), ginge auch:
        my @p22 = grep { $Devices{$_}->{22} } keys %Devices;
        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
        
        Astralkeks
        
        2012-08-28 13:28
        
        User since
        2012-07-17
        40 Artikel
        BenutzerIn
        
        In der aktuellen Ausbaustufe ist der Key nicht definiert oder der Wert = 1. Mir fällt adhoc auch kein Grund ein, dies zu ändern.
        Daher probiere ich den zweiten Teil auch mal aus! Danke

View all threads created 2012-08-27 11:28.