IPv4 Adressen filtern bzw sortieren (gelöst) (Allgemeines zu Perl)

[thread]17334[/thread]

IPv4 Adressen filtern bzw sortieren [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+10 replies
Alexander

2012-04-18 14:19
User since
2012-02-21
25 Artikel
BenutzerIn
Status: leider noch immer Anfänger!

Ich habe folgende Vorgaben zu erfüllen:
-aus einem Array IPv4 Adressen rauszufiltern (habe ich bereits geschafft)
-Angeben wieviel verschiedene IP Adressen in dem Array vorkommen (habe ich auch geschafft)
Code: (dl )

scalar(@ipadressen_no_dup)
-zählen wie oft eine einzelne IP Adresse in dem Array vorkommt
-Liste ohne doppelte Einträge erstellen (IP Adresse + Zahl wie oft sie vorkommt) absteigend sortiert nach der Häufigkeit des Vorkommens

Angefangen habe ich damit, dass ich die doppelten Einträge im IP Array entfernt habe mit
Code: (dl )

@ipadressen_no_dup = grep{!$hash{$_}++;} @ipadressen;
nun habe ich zwei Arrays (@ipadressen = gesammte IP Adressen) und (@ipadressen_no_dup = keine Duplikate)
wie kann ich jetzt die beiden vergleichen um zu sehen wie oft eine IP im anderen Array vorkommt?

Bitte bei der Hilfe bedenken, dass ich noch Anfänger bin.

Alexander

modedit Editiert von GwenDragon: Code-Tags korrigiert
Last edited: 2012-04-18 14:26:24 +0200 (CEST)
- pktm
  
  2012-04-18 14:33
  
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  
  Hallo Alexander,
  
  ich meine, du wirst um das Zählen der IP-Adressen nicht drumrum kommen :)
  
  Wenn man mal das meines Erachtens für Anfänger eher kniffelige grep weglässt, kommt man ganz automatisch auf das, was du brauchst: einen Hash.
  Eigentlich steht das in deiner grep-Lösung schon ;.-)
  
  Ein Hash enthält jeden Schlüssel nur einmal. Du erhälst also eine Liste ohne Duplikate, wenn du aus deinem Array einen Hash machst, indem du die IP-Adresse als Schlüssel verwendest. Wenn du dann noch de Wert des Hashes für das Zähen verwendest, dann hast du eine Datenstruktur, die dir die Duplikate mir Anzahl zur Verfügung stellt.
  http://www.intergastro-service.de (mein erstes CMS :) )
- +3 replies
- Linuxer
  
  2012-04-18 14:45
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Wenn Du die Duplikate mit @ipadressen_no_dup = grep{!$hash{$_}++;} @ipadressen; entfernt hast, hast Du bereits in %hash die Information für jede IP-Adresse, wie oft sie vorgekommen ist.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +2 replies
  - Alexander
    
    2012-04-18 18:29
    
    User since
    2012-02-21
    25 Artikel
    BenutzerIn
    
    Tja das ist das Problem mit Googeln
    
    Ich habe dies Zeile gefunden und sie hat funktioniert, leider weiß ich weder wie noch wie ich einen Hash machen/erzeugen kann bzw wie ich das dann weiter verwenden soll.
    
    gibt es eine einfach (für Anfänger) verständliche Möglichkeit zwei arrays auf Duplikationen zu untersuchen?
    - Linuxer
      
      2012-04-18 22:44
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Ein Hash ist kein Hexenwerk, vor dem man sich fürchten muss ;-)
      
      Einfach gesagt:
      Im Array legst Du Werte ab und sprichst sie anschließend über den Index wieder an.
      Im Hash legst Du ebenso Werte ab und sprichst sie über den beim Ablegen verwendeten Namen wieder an.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7
      
      # lege zwei Werte im Hash ab my %hash = ( Vorname => 'Fritzchen', Nachname => 'Mueller', ); # oder auch: $hash{Strasse} = 'Webergasse 0.5';
      
      Irgendwann will man die Daten auch mal wiederhaben:
      
      Code (perl): (dl )
      
      print "Der Vorname ist: $hash{Vorname}\n";
      
      Oder man will gleich alle ausgeben:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      # hole die Werte wieder aus dem Hash foreach my $schluessel ( keys %hash ) { # Schluessel ist hier entweder Vorname oder Nachname my $wert = $hash{$schluessel}; print "$schluessel: $wert\n"; }
      
      Ähnlich ist das nun mit Deinem Hash. Der Schlüssel ist die IP-Adresse, der Wert die Anzahl, wie oft die Adresse aufgetaucht ist.
      
      Code (perl): (dl )
      
      1 2 3 4
      
      for my $ipv4 ( keys %seen ) { my $count = $seen{$ipv4}; print "$ipv4 : $count\n"; }
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +5 replies
- Alexander
  
  2012-04-18 20:31
  User since
  2012-02-21
  25 Artikel
  BenutzerIn
  Da ich den Befehl, den ich verwendet habe, nicht wirklich durchschaut habe, habe ich ihn umgeschrieben
  
  Code: (dl )
  
  1 2 3 4 5
  
  foreach my $elem ( @agent ) { next if $seen{ $elem }++; push @agent_unique, $elem; }
  
  habe nun diese Zeilen zum Auffinden von doppelten Einträgen.
  
  Nun brauche ich noch eine Lösung wie ich nun den Array unique mit dem orginal Array vergleiche und die jeweiligen Treffer anzeige
  
  Kann mir jemand dabei helfen?
  
  Danke
  
  modedit Editiert von GwenDragon: Code-Tags repariert
  Last edited: 2012-04-18 20:37:11 +0200 (CEST)
  - +4 replies
  - GwenDragon
    
    2012-04-18 20:36
    
    User since
    2005-01-17
    14895 Artikel
    Admin1
    
    Würdest du bitte die korrekten Tags nehmen, um Code einzuklammern.
    
    Nicht [code][\code] sondern [code][/code]
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - pktm
      
      2012-04-18 21:58
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      Also, mein Tipp mit dem Hash nochmal: nimm einen Hash :)
      
      Code: (dl )
      
      1 2 3 4
      
      my %ipadressen_no_dup = (); foreach my $key ( @ipadressen ) { $ipadressen_no_dup{$key}++; # erhöht den Zähler immer wenn dieser Schlüssel gefunden wird }
      
      Du kannst dir die entstehende Datenstruktur mit Data::Dumper ausgeben lassen:
      
      Code: (dl )
      
      1 2 3 4 5
      
      # irgendwo oben in deinem Skript, gleich nach strict und warnings: use Data::Dumper qw/Dumper/; # später, nach der Schleife: print Dumper \%ipadressen_no_dup;
      
      Wenn du diesen Hash erzeugt hast, kannst du dir auch gerne mal die Funktion keys() anschauen. Die gibt die alle Schlüssel eines Hashes zurück.
      http://www.intergastro-service.de (mein erstes CMS :) )
      - +2 replies
      - Alexander
        
        2012-04-19 12:38
        
        User since
        2012-02-21
        25 Artikel
        BenutzerIn
        
        Danke für die Antwort
        funktioniert auch ganz wunderbar mit dem Ausdruck des Dumper
        irgendwie stehe ich jedoch auf der Leitung
        Wie bekomme ich nun die Werte (IP) und die Trefferanzahl heraus
        habe es mit einer foreach schleife des Hashes probiert - geht nicht
        keine Ahnung wie ich an die Werte rankomme
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        my %ipadressen_no_dup = (); foreach my $key ( @ipadressen ) { $ipadressen_no_dup{$key}++; # erhöht den Zähler immer wenn dieser Schlüssel gefunden wird #print "$key\n"; } my @ip_gezaehlt = %ipadressen_no_dup; foreach (@ip_gezaehlt) { $_ =~ m/(\d+.\d+.\d+.\d+)(\d+)/; print "$1: $2\n"; }
        
        pktm
        
        2012-04-19 13:22
        
        User since
        2003-08-07
        2921 Artikel
        BenutzerIn
        
        Du kannst einen Hash wie folgt durchlaufen:
        
        Code: (dl )
        
        1 2 3
        
        while ( my ($key, $value) = each %hash ) { print "$key kommt $value mal vor\n"; }
        
        Leider nicht auf deutsch aber wirklich extrem hilfreich ist dafür perlfaq4 (einfach mal googlen). Hier der entsprechende Abschnitt: http://perldoc.perl.org/perlfaq4.html#Data%3A-Hash...
        
        Grüße,
        pktm
        http://www.intergastro-service.de (mein erstes CMS :) )

View all threads created 2012-04-18 14:19.