Thread String mehrfach per regex verändern (6 answers)
Opened by Hans at 2012-03-29 10:40

Gast wer
 2012-03-29 10:59
#157101 #157101
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl
use strict;
use warnings;

my $str="Peter 22 und der Wolf 12 haben sich um 18 Uhr getroffen";
my $limit=15;

$str=~s/(\d+)/$1>$limit?$1+1:$1/egs;

print $str;

Last edited: 2012-03-29 11:02:29 +0200 (CEST)

View full thread String mehrfach per regex verändern