Wie zum extrahieren einer Zahl aus einem string in Perl?

Habe ich 

print $str;
abcd*%1234$sdfsd..#d

Den string immer nur eine durchgehende Strecke von zahlen, wie 1234 in diesem Fall. Die anderen werden entweder Buchstaben oder andere Sonderzeichen.

Wie kann ich extrahieren Sie die Nummer (1234 in diesem Fall), und speichern Sie es zurück in str?

Auf dieser Seite deutet darauf hin, dass ich verwenden soll \d - aber wie?

InformationsquelleAutor Lazer | 2010-08-26
  1. 18
    $str =~ s/\D//g;

    Diese entfernt alle nondigit Zeichen aus dem string. Das ist alles, was Sie tun müssen.

    EDIT: wenn Unicode-Ziffern in anderen Skripten vorhanden sein können, die bessere Lösung ist:

    $str =~ s/[^0-9]//g;
    • Lazer fragt nach einer Zahl, nicht nur eine ganze Zahl. Diese regexp wird drop ., e die möglicherweise benutzt werden, um eine float. Auch \d ist nicht nur [0-9] aufgrund der Unicode-Unterstützung in Perl: Ziffern in anderen Glyphen (wie die Indische) gültig sind. Also regexp wird auch akzeptiert strings, die nicht zahlen.
    • Lazer sollten genauer sein, dann. Seinem Beispiel nicht enthalten Dezimalzahlen oder Exponentialfunktionen, und ich kann nicht sicher wissen, ob er aufnehmen will oder nicht. Sie sind richtig über die unicode-Variante Skript Ziffern, obwohl, ich werde zu Bearbeiten.
    InformationsquelleAutor Philip Potter
  2. 28

    Wenn Sie nicht möchten, ändern Sie die ursprüngliche Zeichenfolge ist, können Sie extrahieren Sie die zahlen durch die Erfassung von Ihnen in der regex, mit Subpattern. In der Listen-Kontext, einen regulären Ausdruck gibt das entspricht der Definition in der Subpattern.

    my $str = 'abc 123 x456xy 789foo';

my ($first_num) = $str =~ /(\d+)/;   # 123
my @all_nums    = $str =~ /(\d+)/g;  # (123, 456, 789)
    • +1. Dies hat den Vorteil, über meine Antwort, dass es nicht davon ausgehen, es ist nur eine eingebettete Zahl im string.
    InformationsquelleAutor FMc
  3. 4

    Wenn Sie wollte, es zu tun, die destruktive Art und Weise, ist dies der Schnellste Weg, es zu tun. 

    $str =~ tr/0-9//cd;

    translate alle Zeichen in der complement des 0-9 nichts delete Sie.

    Ein Nachteil dieses Ansatzes, und Phillip Potter, ist, dass gab es eine andere Gruppe von Ziffern weiter unten in der Zeichenfolge, Sie würden verkettet werden mit der ersten Gruppe von Ziffern. Es ist also nicht klar, dass Sie möchten, dies zu tun.

    Der todsichere Weg, um eine und nur eine Gruppe von Ziffern ist 

    ( $str ) = $str =~ /(\d+)/;

    Dem Spiel in eine Liste Kontext: gibt eine Liste erfasst. Die Klammern um $str sind einfach zu setzen, wird der Ausdruck in eine Liste Kontext, und weisen die erste Aufzeichnung zu $str.

    • Die beste Antwort!
    InformationsquelleAutor Axeman
  4. 1

    Persönlich würde ich es so machen:

    $s =~ /([0-9]+)/; 
print $1;

    $1 enthält die erste Gruppe entsprach dem angegebenen regulären Ausdruck (der Teil in Runden Klammern).

    • Verwenden Sie niemals den Wert in $1, $2 usw, es sei denn, Sie haben zunächst bestätigt, dass Ihr match erfolgreich war. Capture-variable nur (re.) auf ein erfolgreiches match, wenn $s in deinem Beispiel nicht alle stellen erhalten Sie das Ergebnis Ihrer letzten Suche.
    • Wow, wie dumm von mir. Danke für die Erklärung. Nur um sicherzugehen, dass ich lernen, meine Lektion... Ist if($s =~ /([0-9]+)/) print $1 den richtigen Weg, um die Gruppierung der Variablen?
    InformationsquelleAutor Ziggy
Schreibe einen Kommentar