Wie kann ich entfernen Sie alle Zeichen aus string, beginnend bei der ersten nicht-alpha-Zeichen?

Gewesen wäre viel einfacher, wenn nicht für bestimmte Situationen.

Beispieldaten:

KENP989SD
KENP913E
KENPX189R
KENP913

Welchen regulären Ausdruck kann ich verwenden, um entfernen Sie alle Zeichen aus dem string, beginnend bei der ersten nicht-alpha-Zeichen? Im Grunde möchte ich die ersten nicht-alpha-Zeichen und hacken alles ab, nachdem, dass, unabhängig vom char-Typ.

Nach regex angewendet wird, diese Daten sollten sein:

KENP
KENP
KENPX
KENP
Also im Grunde, Sie wollen es unter die erste nicht-alpha. Für 'KENPX189R", nachdem die "letzten " alpha" wäre ", weil die "letzten " alpha" (auf der Linie ist 'R'.
ja Ihr Recht... krank verfeinern Sie die Titel - /desc

InformationsquelleAutor CheeseConQueso | 2009-02-03

  1. 14

    $s =~ s/[^a-zA-Z].*$//;

    Buchstäblich, finden die ersten nicht-alpha-char und hacken alles ab.

    Loswerden dot.
    In seinem Beispiel er entledigt sich aller chars nach dem ersten nicht-alpha, und nicht alle nicht-alpha am Ende.
    Sorry, du hast Recht, habe ich falsch verstanden, die Frage.
    Was sein könnte, eine notwendige Einschränkung: Was wird als alpha-Zeichen? Abhängig von Ihrem input, das könnte mehr als /[a-zA-Z]/ ...
    Trailing $ nutzlos da .* ist gierig.

    InformationsquelleAutor Igor Oks

  2. 6

    Sie formuliert die Anfrage 2 Möglichkeiten:

    1. Bekommen alle alpha chars aus der front dieser strings
    2. Finden, die Letzte alpha-char und hacken alles ab, nachdem

    Während das Ergebnis das gleiche, da Ihre sample-Streicher, die ich gefunden habe, lohnt es sich, sein vorsichtiger mit regexes. Also, würde ich den ersten Punkt von oben als wirkliche Voraussetzung, und schreiben Sie es als:

    $str =~ s/^([a-z]*)[^a-z].*/$1/i;

    Den Vorteil, in meinem Kopf ist, dass unerwartete strings (wie "7KENP989SD") sollte im Ergebnis ein null-string nach der Ersetzung, statt etwas unerwartetes wie "7KENP". Natürlich, vielleicht ist das was Sie wollte...

    seine formulierte 2 Wege, aber die gleiche Sache.. mit "get all die alpha chars ausschalten", meinte ich, trennen Sie Sie und speichern Sie Sie in eine andere var

    InformationsquelleAutor jimtut

  3. 5
    s/([A-Za-z]*).*/$1/

    ... arbeiten. Es ist nicht unbedingt der beste Weg, es zu tun, aber es ist ein allgemeiner Fall ersetzen.

    Es funktioniert nur, wenn Sie wollen einfach nur alpha-Zeichen

    InformationsquelleAutor user54650

  4. 3

    s/\P{Alpha}.*// funktioniert bei mir einwandfrei:

    perl -pe 's/\P{Alpha}.*//' <<EOF
KENP989SD
KENP913E
KENPX189R
KENP913
EOF

    InformationsquelleAutor Hynek -Pichi- Vychodil

  5. 2

    Vielleicht dies:

    s/(?<=^[A-Z]+).*//

    Verwendet-look-behind, alles zu ersetzen, nach dem Start-alphas mit leer.


    Hinzufügen eines i-flag für groß- /Kleinschreibung, falls erforderlich:

    s/(?<=^[A-Z]+).*//i

    InformationsquelleAutor Peter Boughton

  6. 2

    HINWEIS: ich denke, Igor ist effizienter.

    $str =~ s{^([A-Z]+).*}{$1};

    Fügen Sie die 'i' - flag für groß- /Kleinschreibung übereinstimmt

    $str =~ s{^([A-Z]+).*}{$1}i;
    Eigentlich wollte ich einen schnellen test von 1.000.000 Iterationen 4 Saiten, mein Durchschnitt lag bei 15 Sekunden, Igor war 3 🙂

    InformationsquelleAutor Joe Casadonte

  7. 2

    Hier ist mein gehen Sie.

    /^([A-Za-z]).$/

    BEARBEITEN ich mag Igors Ansatz besser als meine ..

    code:

    #!/usr/bin/perl
#
# http://stackoverflow.com/questions/507941/perl-regex-remove-all-characters-from-string-after-last-alpha-character
#
use strict;
use warnings;
for my $string (<DATA>){
    $string =~ /^([A-Za-z]*).*$/;
    print "$1\n";
}
__DATA__
KENP989SD
KENP913E
KENPX189R
KENP913

    InformationsquelleAutor lexu

  8. 2

    Wenn Sie nicht brauchen, ändern Sie die Eingabe-Zeile selbst, ich diese ein wenig mehr: 

    my ( $alpha_prefix ) = ( $input_line =~ /^(\p{IsAlpha}*)/ );

    Meisten meiner lexikale Variablen sind in den allermeisten Fällen, so dass ein paar mehr nicht Schaden und hält mich von möglicherweise falsch zu interpretieren-Eingang. Plus, es geht taint.

    InformationsquelleAutor Axeman

Schreibe einen Kommentar