# perl -le '$x="123r(abc)a(456)sdfasd"; @x=$x=~/\((.*?)\)/g; print "@x"' abc 456
原帖由 weizhishu 于 2009-11-18 13:35 发表 我的意思是类似于grep -v这个功能.把整个表达式取反.
$x !~ /xyz/