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

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 )

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 )

# 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 :) )