Discussion :

[DoggySmile78]

Bonjour à tous,
je suis à la recherche d'une expression régulier qui matcherait et capturerait les mots simples mais aussi les mots composés avec la restriction qu'il ne pourrait y avoir qu'un seul hyphen (-) par mot
pour éviter d'avoir aaaa-ffff-aaaa mais uniquement aaaa-bbbbb.
Je ne sais pas si c'est possible.
Pour l'instant j'ai ca pour une phrase mais ça autorise n'importe quel nombre de '-' par mot.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
my $pattern = ^.*?\b([\w\-]+)\b.*?$

Merci d'avance.

[Puppet_Master]

Bonjour.

sur les deux exemples donnés, voici une regex qui fonctionne:

Code perl :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
use Modern::Perl;
 
# liste des motifs de test
my @liste_motif = (
    'aaaa-ffff-aaaa'
  , 'aaaa-bbbbb'
);
 
# la regex
my $re = qr{^[^-\b]+-[^-\b]+$};
 
# tests
for my $i ( @liste_motif ) {
    if ( $i =~ $re ) {
            say $i, ' OK';
    } else {
            say $i, ' NOK';
    }
}
 
__END__

retourne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
$ perl regex.pl
aaaa-ffff-aaaa NOK
aaaa-bbbbb OK

Il faudrait une liste de cas plus conséquente pour tester véritablement la regex.

[CosmoKnacki]

Pour capturer les mots, tu dois déjà composer une pattern sans ancres de début et fin de chaîne, car sinon tout ce que tu obtiendras ce sera au mieux un seul résultat puisque ta pattern aura consommé toute la chaîne.

Ensuite tu dois décrire correctement ta cible en elle-même ( le mot avec ou sans tiret ): \w+ (?: - \w+ )? (on place la deuxième partie avec le tiret dans un groupe non-capturant rendu optionnel par un quantificateur ?).

Enfin, tu vérifies ce qu'il y a autour soit ni word characters, ni tirets. Pour ça, tu utilises les word boundaries \b comme tu l'a fais, mais en plus tu dois ajouter un test arrière négatif (?<! ...) et un test avant négatif (?! ...) pour t'assurer qu'il n'y a pas de tirets avant et après.

Soit la pattern: \b (?<!-) \w+ (?: - \w+ )? \b (?!-) ou (?<![\w-]) \w+ (?: - \w+ )? (?![\w-]).

Pour réduire un peu l'effort de recherche, tu peux passer les quantificateurs en possessif et t'affranchir du \b final.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use strict;
use warnings;
 
my $test = 'aaa-bbb aaaa -aaaaa bbb-bbb-bbb bbb-bbb- cccc';
 
my $re = qr/ \b (?<!-)  \w++ (?: - \w+ )?+  (?!-) /x;
 
my @results = ( $test =~ m/$re/g );
 
print join "\n", @results;

[CosmoKnacki]

Autre solution: tu sépares avec split puis tu filtres avec grep. De cette manière tu as besoin d'utiliser deux patterns mais qui sont bien plus simples:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my @results = grep { !/ $\B | ^\B | -[^-]*- /x } split /[^\w-]+/, $test;