如何使用xml-lens提取XML多字段值并组合成元组列表？

给定XML结构：

<Root>
  <V>
    <A>AAA</A>
    <B>100</B>
    <C>...</C>
  </V>
  <V>
    <A>BBB</A>
    <B>200</B>
    <C>...</C>
  </V>
</Root>

需求是提取每个<V>节点下的<A>和<B>值，组合成[("AAA", 100), ("BBB", 200)]这样的元组列表。已知单个字段的提取方式为：

As = doc ^.. root ... named "V" ... named "A" . text

解决方案 #

核心思路是先定位所有<V>节点，再对每个节点单独提取<A>和<B>的内容并组合成元组。可以通过to函数将单个<V>节点映射为目标元组：

import Control.Lens
import Text.XML.Lens

-- 假设doc是已解析的XML文档
result :: [(String, Int)]
result = doc ^.. root ... named "V" . to (\v -> 
    ( v ^. named "A" . text
    , read $ v ^. named "B" . text
    )
  )

说明 #

• root ... named "V"：遍历XML树，获取所有<V>节点的列表。
• to (\v -> ...)：对每个<V>节点，分别提取<A>的文本值，以及<B>的文本值并转换为整数（这里假设<B>的内容都是合法整数，若需处理转换错误可以用readMaybe替代read）。
• ^..：将遍历结果收集为列表，最终得到目标元组列表。

如果需要更严谨的错误处理（比如<B>可能不是整数的情况），可以调整代码：

import Text.Read (readMaybe)

result :: [(String, Maybe Int)]
result = doc ^.. root ... named "V" . to (\v -> 
    ( v ^. named "A" . text
    , readMaybe $ v ^. named "B" . text
    )
  )

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