Comment faire correspondre tout caractère non blanc sauf un caractère particulier ?

Question

En Perl \S correspond à tout caractère autre qu'un espace blanc.

Comment faire correspondre tout caractère autre qu'un espace blanc, à l'exception d'une barre oblique inversée ? \ ?

Answer 1

Vous pouvez utiliser un classe de caractères :

/[^\s\\]/

correspond à tout ce qui n'est pas un caractère d'espacement ni un \ . Voici un autre exemple :

[abc] signifie "correspondre a , b o c " ; [^abc] signifie "correspondre à tout caractère sauf a , b o c ".

Answer 2

Vous pouvez utiliser un lookahead :

/(?=\S)[^\\]/

Answer 3

Cela a fonctionné pour moi en utilisant sed [ Edit : Le commentaire ci-dessous souligne que sed ne supporte pas \s ]

[^ ]

tandis que

[^\s] 

n'a pas

# Delete everything except space and 'g'
echo "ghai ghai" | sed "s/[^\sg]//g"
gg

echo "ghai ghai" | sed "s/[^ g]//g"
g g

Answer 4

Sur mon système : CentOS 5

Je peux utiliser \s en dehors des collections mais doivent utiliser [:space:] à l'intérieur des collections. En fait, je peux utiliser [:space:] uniquement à l'intérieur des collections. Ainsi, pour faire correspondre un espace unique en utilisant cette méthode, je dois utiliser [[:space:]] Ce qui est vraiment étrange.

echo a b cX | sed -r "s/(a\sb[[:space:]]c[^[:space:]])/Result: \1/"

Result: a b cX

• premier espace avec lequel je m'accorde \s
• le deuxième espace, je le fais correspondre alternativement avec [[:space:]]
• le X que je fais correspondre avec "tout mais pas d'espace". [^[:space:]]

Ces deux-là ne fonctionneront pas :

a[:space:]b  instead use a\sb or a[[:space:]]b

a[^\s]b      instead use a[^[:space:]]b