Comment puis-je faire correspondre tout ce qui est après la dernière occurrence de certains char dans une expression régulière perl?

Question

Par exemple, renvoyez la partie de la chaîne qui se trouve après la dernière x dans axxxghdfx445 (doit renvoyer 445).

Answer 1

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

De perldoc perlre:

Par défaut, un sous-motif quantifié est « gourmand », qui est, il correspondra autant de fois que possible (donné un emplacement de départ particulier) tout en encore permettant au reste du motif de correspondre.

Voilà pourquoi .*x correspondra à la dernière apparition de x.

Answer 2

La façon la plus simple serait d'utiliser /([^x]*)$/

Answer 3

la première réponse est bonne, mais quand on parle de « quelque chose qui ne contient pas » ... j'aime utiliser l'expression rationnelle qui « correspond » il

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

très utile dans certains cas

Answer 4

Regular expression: /([^x]+)$/#assuming x is not last element of the string.

Answer 5

Le moyen le plus simple n'est pas une expression régulière, mais un simple split() et l'obtention du dernier élément.

$string="axxxghdfx445"; 
@s = split /x/ , $string; 
print $s[-1]; 

Answer 6

Encore une autre façon de le faire. Ce n'est pas aussi simple qu'une seule expression régulière, mais si vous optimisez pour la vitesse, cette approche sera probablement plus rapide que toute autre utilisation de regex, y compris split.

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

Answer 7

Je suis surpris que personne n'a mentionné la variable spéciale qui fait cela, $': « $' » renvoie tout après la chaîne en correspondance. (perldoc perlre)

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

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

Cependant, il y a un coût (de Souligné par l'auteur):

AVERTISSEMENT: Une fois que Perl voit que vous avez besoin d'un de & $, "", 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 $&, "$ $" ou «$», alors les modèles sans parenthèses de capture ne seront pas pénalisés. Donc, évitez $ &, "$ '", et "$` "si vous le pouvez, mais si vous ne pouvez pas (et certains algorithmes vraiment les apprécier), une fois que vous les avez utilisés une fois, utilisez-les à volonté, parce que vous avez déjà payé le prix. À partir de 5.005, $ & n'est pas si coûteux que le deux autres.

Mais attendez, il y a plus! Vous obtenez deux opérateurs pour le prix d'un, agissez MAINTENANT!

En tant que solution de contournement pour ce problème, Perl 5.10.0 introduit "$ {^} PREMATCH", "$ {^} MATCH" et "$ {^} POSTMATCH", qui sont équivalents à « $ "", $ & et "$", sauf qu'ils ne sont garantis que définis après une correspondance réussie qui a été exécutée avec le modificateur "/ p" (preserve). L'utilisation de ces variables n'entraîne pas de pénalité de performance globale, contrairement à leurs équivalents char de ponctuation, cependant au compromis que vous devez dire à perl quand vous voulez les utiliser.

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

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

Je soumettre humblement que cette voie est la meilleure approche et plus directe vers l'avant dans la plupart des cas, car il ne nécessite pas que vous faites des choses avec la construction de votre modèle spécial afin de récupérer les partie post-match, et il est pas de pénalité de performance.