perl -pe problème regex

Question

J'utilise perl pour vérifier une entrée de texte pour un motif regex, mais un motif ne fonctionne pas avec perl -pe.

modèle suivant ne fonctionne pas avec l'appel de commande:

s![a-zA-Z]+ +(?:.*?)/(?:.*)Comp-(.*)/.*!$1! 

J'utilise le shell linux. À la suite de l'appel que j'utilise pour tester mon regex:

cat test | perl -pe 's![a-zA-Z]+ +(?:.*?)/(?:.*)Comp-(.*)/.*!$1!' 

Test du fichier:

A MaintanceGie?\195?\159mannFlock/System/Comp-Database.cpp 
A MaintanceGie?\195?\159mannFlock/System/Comp-Cache/abc.h

Résultat:

A MaintanceGie?\195?\159mannFlock/System/Comp-Database.cpp 
Cache

Comment puis-je supprimer le premier résultat?

Merci pour tout conseil.

Answer 1

$ cat input 
A MaintanceGie?\195?\159mannFlock/System/Comp-Database.cpp 
A MaintanceGie?\195?\159mannFlock/System/Comp-Cache/abc.h 

$ perl -ne 'print if s![a-zA-Z]+ +(?:.*?)/(?:.*)Comp-(.*)/.*!$1!' input 
Cache

Answer 2

Cette dernière barre oblique après "Comp - (. *)" Peut être ce qui se passe. Le contenu de votre fichier dans la "base de données" n'a pas de barre oblique. Essayez de remplacer Comp-(.*)/.* par Comp-(.*)[/.].* afin de pouvoir faire correspondre le sous-répertoire ou l'extension de fichier.

Answer 3

Le problème est dans le dernier caractère barre oblique dans l'expression régulière. Au lieu d'échapper le point, c'est juste un caractère barre oblique, qui manque dans la chaîne d'entrée. Essayez ceci:

s![a-zA-Z]+ +(?:.*?)/(?:.*)Comp-(.*)[./].*!$1! 

Edit: Mise à jour pour correspondre à de nouvelles données d'entrée et a ajouté une autre option:

D'autre part, votre regex de remplacement pourrait être remplacé par quelque chose comme:

perl -ne 'print "$1\n" if /Comp-(.*?)[.\/]/' 

Ensuite, il n'est pas nécessaire d'analyser la ligne complète avec tout ce qu'elle contient.

Answer 4

\ s correspond à un espace (espaces, tabulations et sauts de ligne) et '+' à un ou plusieurs caractères. Dans ce cas, '\ s +' signifierait rechercher un ou plusieurs espaces.

cat test 
A MaintanceGie?\195?\159mannFlock/System/Comp-Database.cpp 
A MaintanceGie?\195?\159mannFlock/System/Comp-Cache/abc.h 

perl -ne 'print "$1\n" if /\w+?\d+?\d+\w+\/\w+\/Comp-(\w+)[\/]/' test