perl 正则表达式获取逗号不在括号或嵌套括号中

Question

我有一个逗号分隔的字符串，我想匹配每个不在括号中的逗号（括号保证是平衡的）。

a   ,   (b)  ,   (d$_,c)    ,     ((,),d,(,))

a 和 (b)、(b) 和 (d$,c)、(d$,c) 和 ((,),d,(,)) 之间的逗号应该匹配但不在 (d$_,c) 或 ((,),d,(,)) 内。

注意：最终我想用这些逗号分割字符串。

它尝试了这个正则表达式： (?!<(?:\(|\[)[^)\]]+),(?![^(\[]+(?:\)|\])) 来自 here 但它仅适用于非嵌套括号。

Answer 1

你可以使用

(\((?:[^()]++|(?1))*\))(*SKIP)(*F)|,

见regex demo

详情

• (\((?:[^()]++|(?1))*\)) - 捕获组 1：匹配平衡括号之间的子字符串：
  • \( - 一个 ( 字符
  • (?:[^()]++|(?1))* - 除了 ( 和 ) 或整个 Group 1 模式之外，零个或多个 1+ 字符出现（由于 regex subroutine (?1) 在这里是必要的，因为只有整个正则表达式模式的一部分是递归的）
  • \) - ) 字符。
• (*SKIP)(*F) - 忽略找到的匹配项并从匹配项的末尾开始下一次搜索
• | - 或
• , - 匹配嵌套括号外的逗号。

Answer 2

用于此的单个正则表达式过于复杂且难以维护或扩展。这是一个迭代解析器方法：

use strict;
use warnings;

my $str = 'a   ,   (b)  ,   (d$_,c)    ,     ((,),d,(,))';

my $nesting = 0;
my $buffer = '';
my @vals;
while ($str =~ m/\G([,()]|[^,()]+)/g) {
  my $token = $1;
  if ($token eq ',' and !$nesting) {
    push @vals, $buffer;
    $buffer = '';
  } else {
    $buffer .= $token;
    if ($token eq '(') {
      $nesting++;
    } elsif ($token eq ')') {
      $nesting--;
    }
  }
}
push @vals, $buffer if length $buffer;

print "$_\n" for @vals;

您可以使用Parser::MGC 更抽象地构造这种解析器。