如何用Oracle Regexp_Replace/Regexp_Like处理嵌套重复注释？

在PL/SQL脚本中，我们通过语句V_COMMENT := INCOMING_COMMENT || '[' || V_COMMENT || ']';给VARCHAR变量V_COMMENT赋值。由于该语句可能对单条记录多次执行，最终会生成类似process 578 [process 456[process 123]]的嵌套注释。但重复执行时会出现重复嵌套的情况，如process 123 [process 123 [process 000]]或process 456 [process 123 [process 123]]。请问能否用Regexp_Replace()移除这类嵌套或非嵌套的重复标签？或者能否用Regexp_Like()检测这类异常注释？

一、用REGEXP_LIKE()检测异常注释 #

可以通过正则匹配重复的嵌套/非嵌套内容来识别异常：

• 检测当前层级与直接子层级重复的场景（如process 123 [process 123 ...]）：

  REGEXP_LIKE(V_COMMENT, '^(.+?) \[\1 ')
  

  说明：^(.+?)非贪婪捕获开头的内容，\[\1匹配空格+左括号+捕获内容+空格，精准匹配相邻层级的重复。

• 检测任意嵌套层级内重复的场景（如process 456 [process 123 [process 123]]）：

  REGEXP_LIKE(V_COMMENT, '(.+?) \[.*\1 \]')
  

  说明：(.+?)捕获目标内容，\[.*\1 \]匹配左括号后任意内容中再次出现该捕获内容的情况，覆盖跨层级重复。

二、用REGEXP_REPLACE()移除重复标签 #

针对不同重复场景，可通过正则替换清理：

1. 移除直接子层级的重复（将process 123 [process 123 [process 000]]改为process 123 [process 000]）：

   V_COMMENT := REGEXP_REPLACE(V_COMMENT, '^(.+?) \[\1 (.+)\]', '\1 [\2]');
   

   说明：捕获外层有效内容\1和最内层内容\2，跳过中间重复层级。

2. 移除跨嵌套层级的重复（将process 456 [process 123 [process 123]]改为process 456 [process 123]）：

   V_COMMENT := REGEXP_REPLACE(V_COMMENT, '(.+?) \[(.+?) \[\1 \]\]', '\1 [\2]');
   

   说明：捕获外层内容\1和中间层内容\2，替换后剔除重复的嵌套部分。

3. 处理多层重复场景：若存在多次重复，可结合循环执行替换直到无重复内容：

   WHILE REGEXP_LIKE(V_COMMENT, '^(.+?) \[\1 ') LOOP
       V_COMMENT := REGEXP_REPLACE(V_COMMENT, '^(.+?) \[\1 (.+)\]', '\1 [\2]');
   END LOOP;
   

注意事项 #

• 正则中的空格、括号需严格匹配你的注释格式，若实际格式有调整（如括号前后无空格），需对应修改正则中的空格部分。
• 非贪婪模式（+?）可避免过度匹配，防止正常嵌套内容被误处理。

内容的提问来源于stack exchange，提问作者Austin