String mehrfach per regex verändern - #157127 (Allgemeines zu Perl)

hlubenow

2012-03-30 17:34

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Die RegEx ist sicher sehr gut. Aber auch nicht ganz leicht zu verstehen.
Hier nochmal ein Vorschlag mit split() (der vielleicht etwas näher an dem wäre, was man in C++ machen würde (wenn man dort Listen hätte ;) ) ):

Code (perl): (dl )

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

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

my $i;
my @a = split(" ", $str);
for ($i=0; $i<=$#a; $i++) {
    if ($a[$i] !~ /\D/ && $a[$i] > 15) {
        $a[$i]++;
    }
}
$str = join(" ", @a);
print "$str\n";