;;;; ändern zu ;1;1;1;1 - #118448 (Allgemeines zu Perl)

moritz

2009-01-28 20:51

User since
2007-05-11
923 Artikel
HausmeisterIn

leo11+2009-01-28 19:29:13--
Wie bekomme ich auf einen Streich:
Code: (dl )
1
2
;1;1;1;
;1;1;1;

Mit look-ahead z.B.

Code: (dl )

1
2
3

$ perl -wlpe 's/(;)(?=;)/;1/g'
;;;;
;1;1;1;

Die Regex kann man lesen als "ersetze jedes ';', das von einem weiteren ';' gefolgt wird, durch ein ';1'".