Leser: 4
![]() |
|< 1 2 >| | ![]() |
12 Einträge, 2 Seiten |
1 2 3 4 5 6 7 8 9 10 11 12
for ($i=0; $i<= $#allkeys; ++$i){ @join=""; if ($allkeys[$i] == $allkeys[$j]) { unless ($i == $j) { do something } } $i++; $j = $j-1; }
1 2 3 4 5 6 7 8
my @allkeys = qw (hallo ciao hi hallo hello hi); my %seen; my @uniq = grep { !$seen{$_}++ } @allkeys; print "@uniq"; # Ausgabe: hallo ciao hi hello
javalinnn+2007-11-20 22:05:47--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?
QuoteAllerdings 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?
1 2 3 4 5 6 7 8 9 10
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; }
![]() |
|< 1 2 >| | ![]() |
12 Einträge, 2 Seiten |