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

payx

2014-01-22 10:54

User since
2006-05-04
564 Artikel
BenutzerIn

user image

Hallo,

hier auch noch ein Vorschlag von mir, der mir einfacher zu sein scheint, als die schon vorgelegten: In der Regel ist das Mittel der Wahl ein Hash, wenn Dubletten entfernt werden sollen. In diesem Fall müssen Dubletten über zwei Dimensionen ermittelt werden, das würde ich mit einem verschachtelten Hash machen.

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

my @name = ("heinz", "karl", "Peter", "Anne", "heinz", "Anne");
my @geb = ("20101920", "23011929", "02121915", "06041966","20101920", "07071977");

my %all; # Verschachtelter Hash für den ganzen Datenbestand

for my $i (0..$#name) {
    $all{$name[$i]}->{$geb[$i]} .= "Rechnung Nr. $i ";
}

for my $nam (sort keys %all) {
    for my $geb (sort keys %{$all{$nam}}) {
        print "$nam, $geb: $all{$nam}->{$geb}\n";
    }
}

Output:

Code: (dl )

Anne, 06041966: Rechnung Nr. 3
Anne, 07071977: Rechnung Nr. 5
Peter, 02121915: Rechnung Nr. 2
heinz, 20101920: Rechnung Nr. 0 Rechnung Nr. 4
karl, 23011929: Rechnung Nr. 1

Anstelle von "Rechnung Nr. $i" müssen natürlich die richtigen Rechnungsdaten eingefügt werden.

HTH
Grüße
payx

Editiert von payx: Kleine Anpassung in Zeile 12: Wenn eine Dublette entfernt wurde, sieht man das jetzt daran, dass mehrere Rechungen kommen.
Last edited: 2014-01-22 12:04:12 +0100 (CET)