regex - 使用现成的字符类并进一步限制它

Question

Perl 正则表达式中有许多现成的字符类可用，例如 \d或 \S ，或新奇的 Unicode grokkers，例如 \p{P} , which matches punctuation characters .

现在假设我想匹配所有标点字符 \p{P} (相当多的，而不是你想手动输入的东西) - 除了一个，除了好的旧 komma(或逗号， , )。

除了扩展方便的字符类并手动取消 komma 之外，有没有办法指定此要求？

Answer 1

$ unichars -au '\p{P}' | wc -l
598

双重否定:

/[^\P{P},]/

$ unichars -au '[^\P{P},]' | wc -l
597

“和”通过前瞻/后视:

/\p{P}(?<!,)/

$ unichars -au '\p{P}(?<!,)' | wc -l
597

unichars