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; }
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem1 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?
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-ProblemQuoteAllerdings 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; }
Wie frage ich & perlintro
brian's Leitfaden für jedes Perl-Problem![]() |
|< 1 2 >| | ![]() |
12 Einträge, 2 Seiten |