Suchen und ersetzen nur wenn mit regex - #181462 (Allgemeines zu Perl)

FIFO

2015-07-02 13:34

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Guest Mathias
Also Anführungszeichen mit vier Zahlen, gefolgt von einem Schlusszeichen.

Bsp:
$message = "Der Code (1234) steht auf dem K)hlschrank";

Wie schon gesagt: Negativer Lookbehind:

Code (perl): (dl )

$message =~ s/ (?<!\d{4}) \) /ü/gx;

Beachte, dass hier nur kleine ü verwendet werden.

Mehr zu Lookarounds z.B. hier

Editiert von FIFO: typo, link
Last edited: 2015-07-02 13:35:46 +0200 (CEST)

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"