Der Perl-Substitution-Operator s/// gibt als Rückgabewert die Anzahl der gemachten Ersetzungen raus:
my $string = "aaabaabbbaa";
my $replaced = ($string =~ s/a/b/g);
Steht hier, damit ich es nicht vergesse. 🙂
Advertisements
April 1, 2008
Perl: Anzahl der Ersetzungen ausgeben
1 Comment »
RSS feed for comments on this post. TrackBack URI
Da ist Perl leider ein wenig inkonsistent
m//g liefert nämlich im Listenkontext die Treffer zurück, das macht s///g nicht, der liefert immer nur die Anzahl.
Gruß, Tim
Comment by Tim — April 2, 2008 @ 8:38 am