Question

perl 正则表达式问题

我想匹配括号对（），然后检查（）里的内容，如果是金木水火土这五个字中的一个，我就保留括号，否则我就要去除括号。于是最简单的方法就是找出这5个字的补集，这5个字我用utf8编码表示的，例如金用E98791表示。可是这个补集我弄不出来。

Answer 1

s/\(([^金木水火土]+?)\)/$1/g

perl -lpe 's/\(([^金木水火土]+?)\)/$1/g' test.txt

注：这个只是简单实现，没有考虑括号内嵌的情况

Answer 2

你这个要用到逻辑判断,单纯的正则无法实现.
可以用批处理实现,代码自己弄,没空.