基于属性值移除XML leaf节点 修正报错的XQuery代码

原代码存在的问题 #

• 基础语法错误：XQuery的FLWOR表达式必须包含return子句，你写的let $flag := 后接的for循环没有写return，解析器会直接报语法错误。
• 节点匹配逻辑失效：目标子节点是带命名空间前缀的attribute:d，name($child)返回的是带前缀的完整名称attribute:d，用name($child) eq "d"永远匹配不到目标节点，就算语法修正后逻辑也跑不对。
• 判断逻辑冗余易错：通过循环拼接"true"/"false"字符串再用contains检查命中状态的写法，不仅性能差，还可能因为内容里恰好带"true"字符串出现误判。
• 分支覆盖不全：原逻辑默认所有传入节点都是元素节点，递归时遇到文本节点、注释、属性等非元素节点时，尝试构造element会直接抛出类型错误。

修正后的可运行代码 #

declare function my:filterfun($node as node()) as node()* {
  typeswitch($node)
    (: 处理元素节点分支 :)
    case element() return
      if (local-name($node) = "leaf")
      then
        (: 检查当前leaf下是否存在需要删除的标记节点 :)
        let $need-remove := exists($node/*[local-name(.) = "d" and @value = "true"])
        return
          if ($need-remove)
          then () (: 命中删除规则，返回空序列移除节点 :)
          else element {node-name($node)} {
            $node/@*,
            for $child in $node/node() return my:filterfun($child)
          }
      (: 非leaf元素正常递归处理子节点 :)
      else element {node-name($node)} {
        $node/@*,
        for $child in $node/node() return my:filterfun($child)
      }
    (: 属性、文本、注释等非元素节点直接透传返回 :)
    default return $node
};

(: 调用示例，传入待处理的XML根节点即可拿到过滤结果 :)
my:filterfun(/*)

代码说明 #

• 用typeswitch做节点类型分发，避免非元素节点触发元素构造逻辑报错。
• 用local-name()获取节点本地名做匹配，不受命名空间前缀绑定差异影响，能正确识别你XML里的attribute:d节点。
• 用exists()加XPath谓词直接判断删除条件，逻辑简洁没有字符串匹配的边界bug，执行效率更高。
• 所有层级的节点都会递归处理，支持任意深度的XML嵌套结构。

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