请教大家匹配问题

290702500

大家好，请教一个perl的匹配问题，

文本如下：

(a, b)
(a, b) (a, b)
(a, b)
(a, b) (a, b) (a, b)
(a, b)

不知道每一行的括号有多少个，怎么把括号里面的值给匹配出来呢，
/^(\s*\(\s*(\S+)\s*(\S+)\s*\)\s*)+\s*/  这样好像不行，根本不是我想要的结果。。
谢谢。

jason680

回复 1# 290702500

  while(m/\(([^\)]+)\)/g){
    print " ($1) ";
  }

   

290702500

谢谢，
因为我想吧括号里面的值单个匹配出来，所以用/^(\s*\(\s*(\S+)\s*(\S+)\s*\)\s*)+\s*/  这个
但是实际的出来是
$1 = (a b)
$2 = a  
$3 = b

我想要的结果是，比如第2行，
$1 = a  
$2 = b
$3 = a  
$4 = b


我想要的结果是，比如第4行，
$1 = a  
$2 = b
$3 = a  
$4 = b
$5 = a  
$6 = b

yinyuemi

回复 1# 290702500

1. while(m{\((\w+)\W+(\w+)\)}g){print $1,"\n",$2}

复制代码

jason680

  my @aData = split(/[(),\s]+/);

mcshell

1. perl -lne  'print"$1,$2" if/(?<=[()])(\w+),\s*(\w+)/'

复制代码

290702500

谢谢大家给的启发，
问题已经解决了，谢谢大家。:wink:


                        chomp ( $_ ) ;
                        #print "line_pre", $_, "\n" ;

                        s/^\s*\(\s*//g ;
                        s/\s*\)\s*$//g ;
                        s/\)//g ;
                        s/\(//g ;

                        #print "line_post", $_, "\n" ;

                        my @loc = split(/\s+/);

290702500

转换为数组对我的后续处理比较方便，

my @aData = split(/[(),\s]+/);
array里面的首尾元素有空格，不知道怎么把这些空格元素删掉？ 谢谢。