Opened by mordur at 2004-05-11 11:49
User since
2003-08-04
12209 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12209 Artikel
Admin1
[quote=Dieter,11.05.2004, 13:29]oder auch so:
[/quote]
wieso das denn? das testet zusätzlich auf das vorhandensein von \n, aber split
muss ja eh nach \n suchen, also ist diese lösung 1. länger und unlesbarer und
2. vermutlich langsamer.
Code: (dl
)
1
2
3
4
5
6
7
foreach $part (@altes_array) {
$part =~ /\n/
? do {
(push @neues_array, $_) foreach (split /\n/, $part)
}
: (push @neues_array, $part);
}wieso das denn? das testet zusätzlich auf das vorhandensein von \n, aber split
muss ja eh nach \n suchen, also ist diese lösung 1. länger und unlesbarer und
2. vermutlich langsamer.
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