523066680

其实我看题主四楼和五楼的例子都可以用  );  来限定末尾。
当然更复杂的情况且有必要的话可以考虑设计grammar来解决

抄了一段perl6的文法案例

grammar pair {
    token TOP     { <func> }
    rule func    { <name> '(s' <.ws> <string> ')' }
    rule name    { [\w]+ }
    rule string  { 
        (:ignoremark \") ~ \"
        [
            \w | 
            [ '\\' <[\\/bfnrt"():]> ] |
            <-[\\\"\n\t]>+
        ]*
    }
};

my $match = pair.parse('abc(s "\\:\/())))abc\([^\)]*[^\(]*\)")');
say $match;
复制代码

结果

｢abc(s "\:\/())))abc\([^\)]*[^\(]*\)")｣
 func => ｢abc(s "\:\/())))abc\([^\)]*[^\(]*\)")｣
  name => ｢abc｣
  string => ｢"\:\/())))abc\([^\)]*[^\(]*\)"｣
   0 => ｢"｣
复制代码

并没有解决问题 （逃