Wie kann ich passen alles, was nach dem letzten auftreten der einige char in einen regulären perl-Ausdruck?

Beispielsweise, Rückkehr der Teil des Strings, der nach dem letzten x im axxxghdfx445 (sollte zurück 445).

InformationsquelleAutor David B | 2010-08-09

  1. 17
    my($substr) = $string =~ /.*x(.*)/;

    Aus perldoc perlre:

    Standardmäßig quantifiziert Teilmuster ist "gierig", das heißt, es wird passen
    so oft wie möglich (mit einem bestimmten Start-Position), während
    immer noch so dass der rest des Musters zu entsprechen.

    Deshalb .*x werden bis zu dem letzten vorkommen des x.

    Ich schlage vor, gehen mit reko_t Antwort, vermeiden Sie die Verwendung der gierige .*.

    InformationsquelleAutor Eugene Yarmash

  2. 8

    Der einfachste Weg wäre, um /([^x]*)$/

    InformationsquelleAutor reko_t

  3. 5

    die erste Antwort ist eine gute,
    aber wenn wir über "etwas, das nicht enthalten"...
    ich mag die Verwendung des regex, "passt" es

    my($substr) = $string =~ /.*x([^x]*)$/;

    sehr nützlich in einigen Fällen

    +1 in der Tat sehr nützlich
    Sie brauchen nicht die führenden". *x " in der regex.
    das ist richtig, vielen Dank, aber das war zu verdeutlichen, das "etwas, das doeas nicht x enthalten"

    InformationsquelleAutor benzebuth

  4. 3

    Noch einen anderen Weg, es zu tun. Es ist nicht so einfach, wie einen einzigen regulären Ausdruck, aber wenn Sie für die Geschwindigkeit zu optimieren, dieser Ansatz wird wahrscheinlich schneller als alles, was mit regex, einschließlich split.

    my $s     = 'axxxghdfx445';
my $p     = rindex $s, 'x';
my $match = $p < 0 ? undef : substr($s, $p + 1);

    InformationsquelleAutor FMc

  5. 3

    Ich bin überrascht, niemand hat erwähnt die spezielle variable, die das tut, ist $': "$'" gibt-alles, was nach der übereinstimmenden Zeichenfolge. (perldoc perlre)

    my $str = 'axxxghdfx445';
$str =~ /x/;

# $' contains '445';
print $';

    Jedoch, es ist eine kostengünstige (Hervorhebung von mir):

    ACHTUNG: nach Perl sieht, dass du eines der $&, "$", or "$'" anywhere
    in the program, it has to provide them for every pattern match. This
    may substantially slow your program. Perl uses the same mechanism to
    produce $1, $2, etc, so you also pay a price for each pattern that
    contains capturing parentheses. (To avoid this cost while retaining
    the grouping behaviour, use the extended regular expression "(?: ... )"
    instead.) But if you never use $&, "$    " oder "$'", dann Muster ohne
    capturing Klammern werden nicht bestraft. So vermeiden $&, "$'", und
    "$`" wenn du kannst, aber wenn Sie nicht können (und einige algorithmen wirklich
    schätzen Sie), sobald Sie verwendet haben, Sie noch einmal, verwenden Sie Sie, weil
    Sie haben bereits den Preis bezahlt.     Wie von 5.005, $& ist nicht so teuer, wie das
    zwei andere.

    Aber Wartezeit, dort ist mehr! Sie bekommen zwei Operatoren für den Preis von einem, JETZT handeln!

    Als workaround für dieses problem, Perl 5.10.0 führt
    "${^PREMATCH}", "${^}" "${^POSTMATCH}", die gleichwertig sind
    "$`", $& und "$'", außer dass Sie nur dann garantiert werden
    definiert nach einem erfolgreichen match, die ausgeführt wurde mit den "/p"
    (bewahren) - Modifizierer enthalten. Die Verwendung dieser Variablen verursacht keine Globale
    Einbußen bei der Leistung, im Gegensatz zu den Satzzeichen char-äquivalente, jedoch
    bei der trade-off, Sie haben zu sagen, perl, wenn Sie Sie verwenden möchten.

    my $str = 'axxxghdfx445';
$str =~ /x/p;

# ${^POSTMATCH} contains '445';
print ${^POSTMATCH};

    Ich würde demütig Einreichen, die diese route ist die beste und die meisten straight-forward
    Ansatz in den meisten Fällen, da es nicht erforderlich, dass Sie bestimmte Dinge tun
    mit Ihrem Muster-Konstruktion, um die postmatch Teil, und es
    ist keine Leistungseinbußen.

    Außer Ihr holt das erste Vorkommnis von 'x', nicht der Letzte.
    lol, so zu entgleisen meiner gesamten Arbeit 🙂 in der Tat, in diesem speziellen Fall /x([^x]*)$/ wäre besser... habe ich auch gefangen in der Beschreibung $', die alle anderen bisher übersehen hatte.
    Wenn du ein '\' vor dem "" - Zeichen können Sie den code vermeiden, der Stil in der Mitte des in Ihrem Angebot.

    InformationsquelleAutor Ether

  6. 2

    der einfachste Weg ist nicht der reguläre Ausdruck, aber eine einfache split () - und immer das Letzte element.

    $string="axxxghdfx445";
@s = split /x/ , $string;
print $s[-1];
    Ist es wirklich Wert, es zu schaffen, ein temporäres array? print (split /x/, $string)[-1]; würde genauso gut funktionieren.
    Hängt richtig? Was ist, wenn ich die anderen Elemente ?

    InformationsquelleAutor ghostdog74

  7. 1

    Regulären Ausdruck : /([^x]+)$/ #assuming x is not last element of the string.

    InformationsquelleAutor Nikhil Jain

Schreibe einen Kommentar