Perl regex ersetzen von zahlen mit sich selbst, nur eins höher

Ich habe einen text, wie kann ich ersetzen Sie alle zahlen mit sich selbst, nur eins höher?

Ich habe versucht, Dinge wie die folgenden:

$buffer_content=~s/(\d)/($1++)/g;
  • Was hast du als Antwort in diesem Versuch? Nur die Zeichenkette "2++"? Auch würde Sie es brauchen für die Arbeit mit zahlen der Länge größer als eine Zahl?
  • Dies kann nur die Qualifikation für die schlechteste Verwendung von regex immer 🙂
  • warum? ___________
  • ja, ich habe gerade 2++, würde es brauchen, um die Arbeit mit den zahlen von größerer Länge als eine Zahl, aber die aktuelle Antwort ist, dass also alles gut.
InformationsquelleAutor Hermann Ingjaldsson | 2012-10-26
  1. 15

    Verwenden s///e - Bewertung modifier und Sie können beliebige perl-codes im zweiten Teil.

    $x = "hello 3";
$x =~ s/([0-9]+)/$1 + 1/eg;
print $x;

// hello 4

    ref: http://perldoc.perl.org/perlretut.html#Search-and-replace

    • dein code erinnert mich an einfache faktorielle Berechnung print "input factorial number\n> "; $_ = <>; $_ = join" ", (1..$_); 1while ( s/(\d+)\s(\d+)/$1*$2/e); print;
    InformationsquelleAutor Sjoerd
Schreibe einen Kommentar