Opened by tadeus at 2010-09-06 22:38
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
Da muss ich pq recht geben: Willst du nicht split() benutzen? Deine Funktion ließe sich hierauf verkürzen:
Oder eben ganz weglassen und direkt split() benutzen. Die Signatur ist fast dieselbe, nur ist bei split() der Trenner eine Regex (daher oben das Quoting mit \Q).
Code (perl): (dl
)
1 2 3 4 5
sub explode($$;$) { my ($separator,$string,$limit) = @_; return split(/\Q$separator/, $string, $limit); }
Oder eben ganz weglassen und direkt split() benutzen. Die Signatur ist fast dieselbe, nur ist bei split() der Trenner eine Regex (daher oben das Quoting mit \Q).