Opened by mordur at 2004-05-11 11:49
[quote=pq,11.05.2004, 17:22][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.[/quote]
Hast ja recht ... da war ich irgendwo auf dem falschen Dampfer ;)
split liefert natürlich auch dann den zu pushenden Wert zurück wenn kein \n enthalten ist (sorry renee)
und split ist natürlich schneller als ein Pattern-Matching - keine Frage.
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.[/quote]
Hast ja recht ... da war ich irgendwo auf dem falschen Dampfer ;)
split liefert natürlich auch dann den zu pushenden Wert zurück wenn kein \n enthalten ist (sorry renee)
und split ist natürlich schneller als ein Pattern-Matching - keine Frage.