Discussion :

[HurtMarley]

Bonjour,
j'ai un script perl qui doit me supprimmer tous les mots de 3 lettres et moins.

Code :

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

1
2
 
=~s/ .{1,3} / /gi;

mais si j'ai un texte du type " de le " cela ne marche pas car il me prend l'espace comme fesant partie des trois caractere.

Merci

[2Eurocents]

Pourquoi ne pas utiliser les "classes" de caractères dans l'expression rationnelle ?

\w = caractères de mot (alphanum + _)
\s = caractère d'espacement (blanc, tabulation, ...)

Ca donnerait un truc du genre :

Code :

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

$var =~s/\s\w{1,3}(?=\s)//g

Il y a une petite subtilité, car on teste la présence d'un caractère final d'espacement, sans l'inclure au motif trouvé. Ce qui fait qu'on peut continuer la recherche globale depuis avant cet espacement, d'une part, et d'autre part effectuer un remplacement par un motif vide.

[HurtMarley]

merci, je n'avais pas pense au classes de caracteres.

[Jedai]

Pour éviter les problèmes que peuvent poser une expression telle que "fin.", on peut remplacer les "\s" par des "\b" (qui matche une frontière de mot, c'est-à-dire le passage (de longueur 0 donc) entre un caractère de mot et un non-caractère de mot, ou vice-versa) :

Code :

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

1
2
 
$var =~s/\b\w{1,3}\b//g

--
Jedaï