RegEx: Ersetze, wenn Zeichen in gerader Anzahl vorkam - #121885 (Allgemeines zu Perl)

topeg

2009-05-25 13:57

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

So könnte es gehen:

Code (perl): (dl )

$line=s/((?:^|,)(?:~[^~]*~|[^,]*)|,)/$_=($1 eq ",")? ",~~": $1/ge;

ist ungetestet...