如何列出MarkLogic数据库中的所有根目录及子目录？

没错，MarkLogic的虚拟“目录”结构确实有点特殊——它完全依赖文档URI来模拟层级，但不像传统文件系统那样有原生的命令或函数直接列出所有目录/子目录。不过别担心，我们可以用XQuery写一段简洁的代码，轻松生成完整的目录树，不管是根目录还是嵌套的子目录都能覆盖到。

核心思路 #

MarkLogic里的“目录”本质上是URI中/分隔的前缀部分，所以我们只需要从所有文档的URI中提取出所有可能的前缀路径，去重后排序，就能得到完整的目录列表。

方法一：通用XQuery实现（适合中小数据库） #

这段代码会遍历所有文档的URI，递归提取每个URI的所有父目录，最后去重排序：

xquery version "1.0-ml";

(: 定义函数：提取单个URI对应的所有父目录（含根目录） :)
declare function local:get-all-directories($uri as xs:string) as xs:string* {
  let $parts := fn:tokenize($uri, "/")
  (: 处理以/开头的URI，拆分出有效路径段 :)
  let $valid-parts := if (fn:starts-with($uri, "/")) then fn:subsequence($parts, 2) else $parts
  (: 生成每一层级的目录路径 :)
  let $subdirs := for $i in 1 to fn:count($valid-parts) - 1
                  return "/" || fn:string-join(fn:subsequence($valid-parts, 1, $i), "/")
  (: 包含根目录本身（如果URI是根级的话） :)
  let $root-dir := if (fn:starts-with($uri, "/")) then "/" else ()
  return ($root-dir, $subdirs)
};

(: 收集所有文档的URI，提取所有目录，去重并排序 :)
let $all-docs := fn:collection() ! fn:base-uri(.)
let $all-directories := $all-docs ! local:get-all-directories(.)
return fn:distinct-values($all-directories) => fn:sort()

比如如果有文档URI是/products/electronics/laptops.xml，这段代码会提取出/、/products、/products/electronics这三个目录。

方法二：用索引优化（适合大型数据库） #

如果你的数据库文档量很大，遍历所有文档可能有点慢。可以给URI创建xs:string类型的范围索引，然后用cts:values直接从索引中获取所有URI，这样性能会提升很多：

xquery version "1.0-ml";

(: 复用上面定义的local:get-all-directories函数 :)
declare function local:get-all-directories($uri as xs:string) as xs:string* {
  let $parts := fn:tokenize($uri, "/")
  let $valid-parts := if (fn:starts-with($uri, "/")) then fn:subsequence($parts, 2) else $parts
  let $subdirs := for $i in 1 to fn:count($valid-parts) - 1
                  return "/" || fn:string-join(fn:subsequence($valid-parts, 1, $i), "/")
  let $root-dir := if (fn:starts-with($uri, "/")) then "/" else ()
  return ($root-dir, $subdirs)
};

(: 从URI索引中获取所有URI，处理后得到目录列表 :)
let $all-uris := cts:values(cts:uri-reference())
let $all-directories := $all-uris ! local:get-all-directories(.)
return fn:distinct-values($all-directories) => fn:sort()

要使用这个方法，你需要先在MarkLogic管理界面给数据库添加URI的范围索引：进入数据库配置 -> “Element Range Indexes” -> 添加索引，类型选xs:string，元素/属性选uri（或者直接用URI索引选项，具体看你的MarkLogic版本）。

只获取根目录？ #

如果只需要列出所有根级目录，代码可以更简单：

xquery version "1.0-ml";

let $all-uris := cts:values(cts:uri-reference())
let $root-dirs := $all-uris ! (
  if (fn:starts-with(., "/")) then
    let $first-segment := fn:tokenize(., "/")[2]
    return if ($first-segment) then "/" || $first-segment else "/"
  else
    fn:tokenize(., "/")[1]
)
return fn:distinct-values($root-dirs) => fn:sort()

这段代码会提取每个URI的第一个路径段，比如/products/...会得到/products，docs/readme.txt会得到docs。

这些方法都能完美解决你的需求，直接在Query Console里运行就能得到完整的目录列表啦！

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