Hallo,

ich habe foldende Zeile:
"Peter 22 und der Wolf 12 haben sich um 18 Uhr getroffen"
daraus soll werden:
"Peter 23 und der Wolf 12 haben sich um 19 Uhr getroffen"
Also alle Zahlen > 15 um eins erhöhen.

Wie mache ich das am besten in perl. Wie ich es in C++ machen würde
weiss ich (den String Zeichen für Zeichen abarbeiten). Aber das wäre
glaube ich nicht sehr effektiv in Perl.

Danke im Voraus.
Last edited: 2012-03-29 10:49:16 +0200 (CEST)