Thread /String+/ ersetzen mit String2 für alle /String+/ (11 answers)
Opened by PerlProfi at 2006-12-03 19:54

renee
 2006-12-04 10:33
#72220 #72220
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Du solltest $& durch $1 ersetzen und im "suchteil" die matches einsammeln. Also
Code: (dl )
$str =~ s|((?:\$r->vor;?\n?){2,})|'vor('. @{[split(/;\n?/,$1)]} .");\n"|esg;


Das $& sollte man vermeiden, weil es den Regulären Ausdruck ausbremst (siehe perlvar).


Edit: Das scalar brauchst Du nicht, weil bei der Konkatenation sowieso Skalarer Kontext ist.\n\n

<!--EDIT|renee|1165221383-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread /String+/ ersetzen mit String2 für alle /String+/