Comment puis-je combiner une condition positive et négative dans une regex?

Question

Je suis assez nouveau pour les expressions régulières et j'ai besoin d'aide. J'ai besoin de filtrer certaines lignes en utilisant regex dans Perl. Je vais passer l'expression rationnelle à une autre fonction donc il faut le faire en une seule ligne.

Je veux sélectionner uniquement les lignes qui contiennent "too long" et qui ne commencent pas par "SKIPPING"

Voici mes chaînes de test:

SAUTER ce lien depuis la maturité trop longtemps
TKIPPING ce lien depuis échéance trop longue
SLAPPING ce lien depuis la maturité trop longtemps
Bonjour cette maturité trop longue
c'est trop long
bonjour il

La règle regex doit correspondre à ce qui suit sur « trop long»:

SAUT ce lien depuis la maturité trop longtemps
SLAPPING ce lien depuis la maturité trop longtemps
Bonjour cette maturité trop longtemps
c'est trop long

et il devrait sauter:

"Bonjour", car il ne contient pas 'trop long'
"SAUT ce lien depuis trop longtemps la maturité" parce qu'elle containst 'SAUT'

Answer 1

/^(?!SKIPPING).*too long/ 

Answer 2

utilisant lookbehind négatif:

(?<!^SKIPPING)too long$ 

Answer 3

Personnellement, je ferais cela comme deux regex distinctes juste pour le rendre plus clair.

while (<FILE>) 
{ 
    next if /^SKIPPING/; 
    next if !/too long/; 

    ... do stuff 
} 

Answer 4

Utilisez une vue d'ensemble; voir this explanation of regex lookaround.

^(?!SKIPPING).*too long 

Answer 5

Je suppose que vous peut-être après une seule regex mais je préfère diviser en quelque chose de plus facile à lire comme ceci:

use strict; 
use warnings; 

for my $line (<DATA>) { 
    next if $line =~ m/^SKIPPING/; 
    next if $line !~ m/too long/; 

    # do something with $line 
    chomp $line; 
    say "Found: ", $line, ':length=', length($line); 
} 

__DATA__ 
SKIPPING this bond since maturity too long 
TKIPPING this bond since maturity too long 
SLAPPING this bond since maturity too long 
Hello this maturity too long 
this is too long 
hello there 

Answer 6

/^(?<!SKIPPING).*too long$/ 

Matchs lignes que vous recherchez. Le signe dollar à la fin l'amène à correspondre uniquement aux chaînes qui se terminent par «trop long».

Espérons que cela aide!