Opened by Maddy at 2005-07-05 11:41
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
[quote=pKai,05.07.2005, 23:12]Für das Problem "Brauche das Ergebnis von s/// (nicht den Rückgabewert) im map-Zusammenhang" suche ich auch noch nach einer eleganten Lösung.[/quote]
hmm. sowas?
edit: umbenannt, $_[0]->() statt $_[0]->($_)\n\n
<!--EDIT|pq|1120741872-->
hmm. sowas?
Code: (dl
)
1
2
3
4
5
6
# beläßt original so wie es ist
sub cmap (&@) {
map { local $_ = $_; $_[0]->(); $_ } @_[1..$#_];
}
my @copy = cmap { s/a/b/ } @array;
edit: umbenannt, $_[0]->() statt $_[0]->($_)\n\n
<!--EDIT|pq|1120741872-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem