Comment puis-je supprimer tous les caractères de la chaîne dès le premier non-alpha personnage?

Cela aurait été beaucoup plus facile si ce n'est pour certaines situations.

Des données de l'échantillon:

KENP989SD
KENP913E
KENPX189R
KENP913

Quelle expression régulière puis-je utiliser pour supprimer tous les caractères de la chaîne en commençant à la première non-alpha personnage? Fondamentalement, je veux trouver le premier non-alpha caractère et hacher le tout hors tension après que, indépendamment du type char.

Après regex est appliqué, ces données doivent être:

KENP
KENP
KENPX
KENP

Donc, fondamentalement, vous voulez à la première non-alpha. Pour "KENPX189R", après la "dernière alpha" serait ", car la "dernière alpha" (sur la ligne "R".
oui ta raison... mauvais affiner le titre/description

InformationsquelleAutor CheeseConQueso | 2009-02-03

14

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

Littéralement, trouver le premier non-alpha char et hacher le tout à partir de lui.
- Se débarrasser de la dot.
- Dans son exemple, il se débarrasse de tous les caractères après le premier non-alpha, et non pas de tous les non-alpha à la fin.
- Désolé, vous avez raison, j'ai mal compris la question.
- Ce qui pourrait être une nécessaire mise en garde: Ce qui est considéré comme un caractère alpha? En fonction de votre entrée ce serait peut-être plus que /[a-zA-Z]/ ...
- De fuite $ inutile .* c'est gourmand.
- s/\P{alpha}.*// fonctionne pour moi, très bien 😉
- Oui, il fonctionne sans $ de trop. Merci 🙂
InformationsquelleAutor Igor Oks
6

Vous avez formulé la demande de 2 façons:
1. Obtenir tous les caractères alpha au large de la face de ces chaînes
2. Trouver la dernière alpha char et hacher le tout hors tension après
Alors que le résultat est le même, compte tenu de votre échantillon de chaînes, j'ai trouvé qu'il paye pour être plus prudent avec les regexes. Donc, je voudrais prendre le premier point ci-dessus que le réel exigence, et de l'écrire comme:
```
$str =~ s/^([a-z]*)[^a-z].*/$1/i;
```
L'avantage dans mon esprit, c'est que des chaînes de caractères (comme "7KENP989SD") devrait entraîner une chaîne nulle après la substitution, au lieu de quelque chose d'inattendu comme "7KENP". Bien sûr, peut-être que c'est ce que tu voulais...
- son formulé de 2 façons différentes, mais la même chose.. par 'obtenir tous les caractères alpha off" je voulais les séparer et de les stocker dans un autre var
InformationsquelleAutor jimtut
5
```
s/([A-Za-z]*).*/$1/
```
... va travailler. Ce n'est pas nécessairement la meilleure façon de le faire, mais c'est un cas général remplacer.

Il ne fonctionne que si vous voulez juste de caractères alpha

InformationsquelleAutor user54650
3

s/\P{Alpha}.*// fonctionne pour moi amende:
```
perl -pe 's/\P{Alpha}.*//' <<EOF
KENP989SD
KENP913E
KENPX189R
KENP913
EOF
```
InformationsquelleAutor Hynek -Pichi- Vychodil
2

Peut-être ceci:
```
s/(?<=^[A-Z]+).*//
```
Utilise-regarder derrière pour remplacer tout ce qui est après le départ alphas avec vide.

Ajouter un indicateur i pour la casse, si nécessaire:
```
s/(?<=^[A-Z]+).*//i
```
InformationsquelleAutor Peter Boughton
2

REMARQUE: je pense Igor est plus efficace.
```
$str =~ s{^([A-Z]+).*}{$1};
```
Ajouter le " je " drapeau de la casse correspond
```
$str =~ s{^([A-Z]+).*}{$1}i;
```
- En fait j'ai fait un test rapide, 1 000 000 d'itérations de 4 cordes, ma moyenne était de 15 secondes, Igor a 3 🙂
InformationsquelleAutor Joe Casadonte

Voici mon aller à elle.

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

MODIFIER j'aime Igor approche meilleure que la mienne ..

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

2

Si vous n'avez pas besoin de modifier l'entrée de la ligne elle-même, j'utilise un peu plus:
```
my ( $alpha_prefix ) = ( $input_line =~ /^(\p{IsAlpha}*)/ );
```
La plupart de mes variables sont lexicals dans une grande majorité des cas, donc un peu plus de ne pas faire de mal et m'empêche de éventuellement déformer entrée. De Plus, il passe souillure.

InformationsquelleAutor Axeman

Vous devez vous connecter pour publier un commentaire.