Perl – Mittels Hash Duplikate in Arrays ausfiltern
Mit diesem Codeschnipsel ist es möglich Duplikate in Arrays zu filtern.
Komplettes Codebeispiel
Dieser Code entfent alle Duplikate aus Arrays…
CODE:
#!/usr/bin/perl
#Fehlerausgabe an Browser
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
# Array mit duplikaten
@array = qw(Mueller Meyer Lehmann Meyer Schulze Mustermann Mueller Walter Schulze Mustermann);
my %einmalig;
@einmalig{@array} = ();
# vom Hash nur die keys ausgeben
print join "<br>\n", sort keys %einmalig;
Übrig bleibt:
Lehmann
Meyer
Mueller
Mustermann
Schulze
Walter
Keine Kommentare vorhanden