Wie kann ich das extrahieren einer Teilzeichenkette bis zum ersten Ziffer?

Wie finde ich den ersten Teilstring, bis ich die erste Ziffer?

Beispiel:

my $string = 'AAAA_BBBB_12_13_14' ;

Ergebnis erwartet: 'AAAA_BBBB_'

  • Wow. Jede Antwort, so weit ist es falsch.
InformationsquelleAutor Jorge | 2012-03-23
  1. 3

    Ausgehend von den tags, die Sie möchten, um einen regulären Ausdruck verwenden. So bauen wir dieses.

    Dieser gibt uns der folgende reguläre Ausdruck:

    ^\D+

    Können, die wir im code verwenden, etwa so:

    my $string = 'AAAA_BBBB_12_13_14';
$string =~ /^\D+/;
my $result = $&;
    • wenn Sie verwenden : /(\d)/ - regex, which search FIRST digit in string und nach dieser haben Sie $` - var, die Zeichenfolge vor dem matching
    • Diese Methode schlägt fehl, wenn die Zeichenfolge hat keine Ziffern entsprechen, wie es liefert einen leeren string, anstatt den gesamten string.
    • es ist nicht eine Aufgabe finden, die eine erste Ziffer) und wenn es keine Ziffern, sein Programm etwas anderes tun: $str =~ /(\d)/ and foo($`) or foo2();
    • Sie haben ein paar problem hier. Erste, Perl stellt nur die match-Variablen auf ein erfolgreiches Spiel, so dass Sie brauchen, um zu überprüfen, das Ergebnis der match-operator, so dass Sie nicht bekommen, Links über die Werte aus früheren spielen. Zweitens, die $& wird verlangsamen alle Ihre Spiele mit ihm sehr gut bekannten performance-Problem. Sie brauchen es nicht hier. Verwenden Sie einfach eine Aufnahme.
    InformationsquelleAutor Dave Webb
  2. 2

    Die meisten Menschen haben die Hälfte der Antwort richtig, aber Sie übersehen einige wichtige Punkte.

    • Vertrauen kannst du nur die match-Variablen nach einem erfolgreichen match. Verwenden Sie Sie nicht, es sei denn, Sie wissen, Sie hatten einen erfolgreichen match.

    • Den $&, $``, and$" haben bekannte Leistungseinbußen über alle regexes in Ihrem Programm.

    • Müssen Sie verankern das match auf den Anfang der Zeichenkette. Da Perl hat nun Benutzer einstellbaren Standard-match-flags, die Sie möchten, zu bleiben Weg von der ^ Anfang der Zeile verankern. Die \A Anfang der Zeichenfolge Anker nicht ändern, was es tut, auch mit Standard-flags.

    Dieser funktionieren würde:

    my $substring = $string =~ m/\A(\D+)/ ? $1 : undef;

    Wenn Sie wirklich wollten, um so etwas wie $&, Perl 5.10 pro-match-version statt. Die /p Schalter stellt nicht-globalen-perfomance-saugen-Versionen:

    my $substring = $string =~ m/\A\D+/p ? ${^MATCH} : undef;

    Wenn Sie sind besorgt über das, was vielleicht in \D können Sie die Charakter-Klasse selbst statt mit dem shortcut:

    my $substring = $string =~ m/\A[^0-9]+/p ? ${^MATCH} : undef;

    Ich nicht besonders wie der bedingte operator hier, so würde ich wahrscheinlich das Spiel in der Liste Kontext:

    my( $substring ) = $string =~ m/\A([^0-9]+)/;

    Wenn es sein muss eine Zahl im string (damit Sie nicht übereinstimmen, eine ganze Zeichenfolge, die keine Ziffern sehen, können Sie werfen in einer lookahead-Funktion, die nicht Teil des capture:

    my( $substring ) = $string =~ m/\A([^0-9]+)(?=[0-9])/;
    • Ich mag /\A(\D*)/ && $1 mich. Sehe nicht ein, warum die Mühe mit einem /(pat)/ ? $1 : undef die meisten der Zeit, gegeben, dass && $1 ist in der Regel gut genug. Menschen, die nicht verwenden && so viel für seine string-potential, wie Sie es könnten.
    InformationsquelleAutor brian d foy
  3. 0
      $str =~ /(\d)/; print $`;

    Dieser code drucken Zeichenfolge, die vor dem matching

    • $str =~ /(\d)/; print $`
    • Das funktioniert nicht, wenn die Zeichenfolge hat keine Ziffern drin. Zum Beispiel, wenn $string = 'AAAA_BBBB' würde ich erwarten, dass 'AAAA_BBBB' zurückgegeben werden, aber dieser einen leeren string zurück, da es keine Ziffer zu entsprechen.
    • $str=~/(\d)/ and print $` or print $str;
    • Sie haben ein paar problem hier. Erste, Perl stellt nur die match-Variablen auf ein erfolgreiches Spiel, so dass Sie brauchen, um zu überprüfen, das Ergebnis der match-operator, so dass Sie nicht bekommen, Links über die Werte aus früheren spielen. Zweite, $ ` wird verlangsamen alle Ihre Spiele mit ihm sehr gut bekannten performance-Problem.
    InformationsquelleAutor gaussblurinc
  4. 0
    perl -le '$string=q(AAAA_BBBB_12_13_14);$string=~m{(\D+)} and print $1'
AAAA_BBBB_
    • Sie müssen die Anker entsprechen, so dass Sie von Anfang des Strings anstelle von vielleicht passender nicht-Ziffern nach der ersten Ziffer.
    InformationsquelleAutor JRFerguson
Schreibe einen Kommentar