Werte aus Array über zwei Array vergleichen und löschen - #173100 (Allgemeines zu Perl)

Gast wer

2014-01-21 17:40

Code (perl): (dl )

my @name = ("heinz", "karl", "Peter", "Anne", "heinz", "Anne");
my @geb = ("20101920", "23011929", "02121915", "06041966","20101920", "07071977");
my %d=map{"$name[$_]|$geb[$_]" => [$_,$name[$_],$geb[$_]]}(0..$#name);
@name=(); @geb=();
map{push(@name,$_->[1]);push(@geb,$_->[2]);}sort{$a->[0] <=> $b->[0]}values(%d);