Thread /String+/ ersetzen mit String2 für alle /String+/
(11 answers)
Opened by PerlProfi at 2006-12-03 19:54
[quote=topeg,03.12.2006, 20:00]Ich würde es aus dem stehgreif so machen:
... Edit: Es gibt einen Einzeiler :-) Code: (dl
)
$str=$`.'vor('.scalar(@{[split(/;\n/,$&)]}).");\n".$' while($str=~/(?:\$r->vor;\n){2,}/s); Ich weiß nicht wie dir der Stehgreif (komisches Tier, solch ein Helferlein hätte ich auch gern) weiterhilft, aber ich meine, dass Regexe bei umfangreicheren Aktionen arg langsam werden können. Andere "Parserlösungen" sind da sicherlich effizienter, wenn auch nicht so schnell zu schreiben. ;) Aber darauf kommt es hier wohl nicht an.\n\n <!--EDIT|GwenDragon|1165225315--> |