Hash richtig sortieren (Allgemeines zu Perl)

[thread]14086[/thread]

Hash richtig sortieren

Leser: 30

Articles: hide open all | hide show old branches

+10 replies
rwilli

2009-10-01 14:28
User since
2009-10-01
5 Artikel
BenutzerIn
Hallo,

ich bin noch ziemlicher Perl Neuling, und bin gerade dabei mich intensiver damit zu beschäftigen.
Zu meinem Problem.
Ich hab ein Hash welches so aussieht:
Code: (dl )

1 2 3

%temphash = ('1AHIT' => {'COMMENT', '1AHIT', 'IP', '192.168.221.10'}, '2AHIT' => {'COMMENT', '2AHIT', 'IP', '192.168.222.10'}, 'CAD1-OST' => {'COMMENT', 'CAD1-OST' , 'IP', '192.168.43.10'} ....);
Ich möchte nun dieses Hash nach IP-Adressen geordnet ausgeben.
Habs mit
Code: (dl )

@keys_sorted_by_value = sort{$temphash{$a}{'IP'} <=> $temphash{$b}{'IP'}} keys %temphash;
und
Code: (dl )

@keys_sorted_by_text = sort{$temphash{$a}{'IP'} cmp $temphash{$b}{'IP'}} keys %temphash;
und anschließender Ausgabe mit foreach, aber ich bekomm nicht das gewünschte Ergebnis hin.
Hoff ihr könnt mir helfen! Danke!
- +3 replies
- Gast wer
  
  2009-10-01 14:45
  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
  
  use strict; use warnings; my %temphash = ( '1AHIT' => { 'COMMENT' => '1AHIT', 'IP' => '192.168.221.10' }, '2AHIT' => { 'COMMENT' => '2AHIT', 'IP' => '192.168.222.10' }, 'CAD1-OST' => { 'COMMENT' => 'CAD1-OST', 'IP' => '192.168.43.10' } ); my @keys_sorted=sort{$temphash{$b}{'IP'} cmp $temphash{$a}{'IP'}} keys(%temphash); for my $key (@keys_sorted) { print "$key:\n"; print " IP: ".$temphash{$key}{IP}."\n"; print " COMMENT: ".$temphash{$key}{COMMENT}."\n"; print "#"x80,"\n"; }
  
  Und nun sag mir was soll herauskommen.
  - +2 replies
  - rwilli
    
    2009-10-01 15:09
    
    User since
    2009-10-01
    5 Artikel
    BenutzerIn
    
    Es sollte folgendes rauskommen:
    
    CAD1-OST 192.168.43.10
    1AHIT 192.168.221.10
    2AHIT 192.168.222.10
    
    ich möchte einfach das nach IP-Adressen sortiert ausgegeben wird.
    - pq
      
      2009-10-01 15:47
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      den ersten ansatz hast du ja schonmal bekommen. im code von 'wer' wird einfach die ip-adresse alphanumerisch verglichen. du willst jedoch die einzelnen teile numerisch vergleichen. dann musst du in der sort-routine entweder die zahlen splitten oder gleich die ganze ip in einen int umwandeln und dann numerisch vergleichen.
      hier mal ein beispiel mit einer Schwartzian_transform:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      my @keys = map { $_->[1] } sort { $a->[0] cmp $b->[0] } map { [sprintf('%03d' x 4, split /\./, $temphash{$_}->{IP}), $_] } keys %temphash;
      
      das sind die sortierten keys.
      
      edit: mit Net::IP, was murphy vorgeschlagen hat, sähe das dann so aus:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8
      
      use Net::IP qw/ ip_iptobin /; my @keys = map { $_->[1] } sort { $a->[0] cmp $b->[0] } map { [ip_iptobin($temphash{$_}->{IP}), $_] } keys %temphash;
      
      Last edited: 2009-10-01 16:14:17 +0200 (CEST)
      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
- murphy
  
  2009-10-01 14:59
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  Im Prinzip ist der Ansatz ja richtig. Ich nehme aber an, das Problem liegt darin, dass <=> ein numerischer Vergleichsoperator ist. Angebracht wäre es wohl eher, die IPs in Binärstrings zu verwandeln — zum Beispiel mit Hilfe des Moduls Net::IP — und sie lexikographisch mittels cmp zu vergleichen.
  
  Nachtrag: Wäre das Pragma warnings verwendet worden, so hätte Perl automatisch darauf hingewiesen, dass die Verwendung von <=> mit nicht numerischen Argumenten keine gute Idee ist.
  Last edited: 2009-10-01 15:01:21 +0200 (CEST)
  When C++ is your hammer, every problem looks like your thumb.
  - +4 replies
  - rwilli
    
    2009-10-01 15:17
    
    User since
    2009-10-01
    5 Artikel
    BenutzerIn
    
    aha, könntest du vl so nett sein und mir das ein bisschen näher erklären.
    Der Begriff lexikographisch sagt mir mal gar nichts.
    - GwenDragon
      
      2009-10-01 15:25
      
      User since
      2005-01-17
      14554 Artikel
      Admin1
      
      Das bezeichznet eine bestimmte Ordnungsreihenfolge.
      http://www.zeno.org/Pierer-1857/A/Lexikographisch+...
      http://de.wikipedia.org/wiki/Lexikographisch
      
      Ich denke er meint das.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +2 replies
    - murphy
      
      2009-10-01 15:44
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      Unter "lexikographisch sortieren" verstehe ich "alphabetisch sortieren, wie in einem Wörterbuch oder Lexikon" -- daher kommt wohl auch der Begriff, wenn mich nicht alles täuscht.
      
      Zum Beispiel könnte man das, was ich vorgeschlagen habe, so machen:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
      
      #!/usr/bin/perl use strict; use warnings; use Net::IP qw/ip_iptobin/; my %temphash = ( '1AHIT' => { COMMENT => '1AHIT', IP => '192.168.221.10' }, '2AHIT' => { COMMENT => '2AHIT', IP => '192.168.222.10' }, 'CAD1-OST' => { COMMENT => 'CAD1-OST', IP => '192.168.43.10' } ); my @keys_sorted_by_ip = sort { ip_iptobin($temphash{$a}{IP}, 4) cmp ip_iptobin($temphash{$b}{IP}, 4) } keys %temphash; print map { "$_: IP = $temphash{$_}{IP}\n" } @keys_sorted_by_ip;
      
      When C++ is your hammer, every problem looks like your thumb.
      - Gast rwilli
        
        2009-10-01 21:28
        
        danke für eure schnelle antwort!
        funktioniert perfekt!
        Danke
  - rwilli
    
    2009-10-01 15:37
    
    User since
    2009-10-01
    5 Artikel
    BenutzerIn
    
    hab mir jetzt die doku dazu genauer durchgelesen und bin auf die zwei Methoden binip() und bincomp gestoßen.

View all threads created 2009-10-01 14:28.