Red语言如何使用split拆分字符串并按需保留分隔符、避免误拆内容内分隔符？

我希望使用split函数拆分字符串，但字符串中存在本应作为内容、而非分隔符的分隔符序列，不希望将其当作拆分标记处理。我的尝试代码如下：

>> split {1 + 3 `to-string #"^(60)"`c} "`"
== ["1 + 3 " {to-string #"} {"} "c"] 
;; 我预期的返回结果为 ["1 + 3 " {to-string #"^(60)"}"c"]

我使用to-string #"^(60)"的初衷是避免字符串中出现会被识别为分隔符的反引号序列，但尝试后未生效：看起来^(60)被求值为对应反引号后，直接被split当作了分隔符。
核心疑问点：

• Red语言中split函数的运行机制是什么？
• 如何在拆分字符串时，保留那些不应被当作分隔符的分隔符序列？

split 函数核心运行机制 #

• 原生split采用无状态朴素匹配逻辑：对传入的字符串做全量逐位扫描，只要匹配到和分隔符参数完全一致的字符序列，就立刻在该位置切割。函数本身没有内置任何“例外识别”逻辑，不会区分分隔符是手写输入的、还是通过转义生成的，只要字符完全一致就会触发切割。
• 字符串求值的时机早于split执行：所有传入split的字符串入参，都会先经过Red的语法求值阶段完成转义替换。比如双引号包裹的字符串中，^(60)会在求值阶段直接替换成ASCII码为60的反引号字符，以普通反引号的形式进入待拆分字符串，split扫描时不会对这类字符做特殊识别。
• 你之前遇到的拆分偏差，本质是构造待拆分字符串时的类型误用：Red中花括号{}包裹的字面字符串不会做任何转义求值，内部内容完全原样保留；如果误用双引号""包裹字符串，^(60)会直接被替换成反引号，导致字符串中出现额外的分隔符字符，触发非预期切割。

保留非切割类分隔符序列的实现方案 #

• 临时占位符替换法
  构造字符串时，把所有需要保留、不参与切割的分隔符序列，替换成字符串中不会出现的特殊占位符（比如ASCII控制字符^(0)）；执行split拆分后，再把每个拆分片段中的占位符还原回原本的分隔符字符。这种方法逻辑简单，适合分隔符没有固定嵌套规则的场景。
  示例流程：

  ;; 构造带占位符的待拆分字符串，待保留的反引号用#"^(0)"临时替换
  test-str: rejoin [
    "1 + 3 "
    "`" ;; 正常切割用的分隔符
    "to-string #^(0)\"" ;; 这里的反引号是要保留的内容，先做占位
    "`" ;; 正常切割用的分隔符
    "c"
  ]
  ;; 按反引号执行拆分
  split-parts: split test-str "`"
  ;; 拆分完成后，把占位符还原为原本的反引号
  split-parts: replace/all split-parts #"^(0)" "`"
  

• 自定义规则扫描法
  如果你需要实现类似“被成对引号包裹的分隔符不参与切割”的类CSV解析规则，可以自己实现逐字符扫描逻辑：遇到分隔符时，先判断当前扫描位置是否处于特殊包裹标记（比如双引号）内部，如果处于包裹内就跳过切割，只有在包裹外的分隔符才打切割标记，最后按照标记完成拆分。这种方法适合有明确嵌套规则的场景，不需要手动做占位符替换。

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