Array auf Duplikate überprüfen - #102712 (Allgemeines zu Perl)

Siechfred

2007-11-21 14:24

User since
2007-11-12
30 Artikel
BenutzerIn
[default_avatar]

Quote
Allerdings müsste ich auf die Teile zugreifen können, die nicht im @uniq Array gelandet sind. Weil die möchte ich ja evtl umbenennen, um sie problemlos weiterverarbeiten zu können. Gbt es dafür eine Lösung?

Wenn ich Dich richtig verstehe, sollte map helfen, z.B. indem Du an mehrfach vorkommende Elemente einfach die Anzahl des Vorkommens dranhängst:

Code (perl): (dl )

my @allkeys = qw (hallo ciao hi hallo hi hello hi);
my %seen;
my @new_array = map ( renameElm($_), @allkeys );
print "@new_array";

sub renameElm {
  my $elm = shift;
  $elm .= $seen{$elm} if( $seen{$elm}++ );
  return $elm;
}

Das produziert dann "hallo ciao hi hallo2 hi2 hello hi3".

HTH,
Siechfred