/String+/ ersetzen mit String2 für alle /String+/ - #72219 (Allgemeines zu Perl)

topeg

2006-12-04 10:19

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Hmm, ja. Die "e"-Option hatte ich vergessen. Dann würde ich es aber so schreiben:

Code: (dl )

$str =~ s|(?:\$r->vor;?\n?){2,}|'vor('.scalar(@{[split(/;\n/,$&)]}).");\n"|esg;

Das halte ich für etwas unkomplizierter. :-)

Edit: Meine Rechtschreibung, ohjeh...\n\n