正规表达式有办法取反吗?

weizhishu

perl中正则表达式有办法取反吗?
echo '123r(abc)a(456)sdfasd' | perl -p -e 's/\([^)]+\)//g'
我想只要()里的东西 ,把上面的取返后正好是结果.

兰花仙子

不太明白你说的取反啥~~

取()里的值：

# perl -le '$x="123r(abc)a(456)sdfasd"; @x=$x=~/\((.*?)\)/g; print "@x"'
abc 456

weizhishu

我的意思是类似于grep -v这个功能.把整个表达式取反.

兰花仙子

原帖由 weizhishu 于 2009-11-18 13:35 发表
我的意思是类似于grep -v这个功能.把整个表达式取反.

perl有!~操作符呀

$x !~ /xyz/

Perl_Er

把匹配的去掉就可以了啊，  s/(pattern)//g

weizhishu

我看书时没找到这个.看来还是粗心了.我再翻书看看.多谢.

weizhishu

perl -le '$x="123r(abc)a(456)sdfasd"; @x=$x=~/\((.*?)\)/g; print "@x"'
abc 456
另接仙子的回答再问一个问题/\((.*?)\)/这个结果里怎么没有显示()呢?
我把里面那对括号去了变成/\(.*?\)/这个显示的结果是(abc) (456)
是不是如果加了(),只把()内匹配的内容赋给@x.()外面的不管.
如果没有加()就是把整个表达式匹配的都赋给前面的@x?

兰花仙子

是的~~加了()这叫做分组。

weizhishu

明白了,谢谢

blackold