使用HXT修改XML

Question

我正在尝试修改 XML 格式的文件：

<plist version="1.0">
<dict>
    <key>items</key>
    <array>
        <dict>
            <key>assets</key>
            <array>
                <dict>
                    <key>kind</key>
                    <string>software-package</string>
                    <key>url</key>
                    <string>https://s3.xyz.amazonaws.com/xyz/xyz.ipa</string>
                </dict>
                <dict>
                    <key>kind</key>
                    <string>display-image</string>
                    <key>url</key>
                    <string>https://s3.xyz.amazonaws.com/xyz/xyz.57x57.png</string>
                </dict>
            </array>
        </dict>
    </array>
</dict>

我要修改节点内容<string>https://s3.xyz.amazonaws.com/xyz/xyz.ipa</string>

我可以通过以下方式找到相关的兄弟节点

import Text.XML.HXT.Core

main = do
  plistString <- readFile "manifest.plist"
  let plistDoc = readString [withValidate no, withSubstDTDEntities no] plistString
  node <- runX  $ plistDoc >>> deep (hasText ( == "software-package")) 
  print node

但我似乎无法 select 关联的兄弟节点（尝试了 followingSiblingAxis 和 moveUp >>> getChildren），这将允许我操作所需的节点。 NavigatableTree 和 NTree 之间的区别是否有问题？我是 show 作为 NTree (XText "software-package") []]

的节点

如果任何答案假设对箭头的接触非常有限，那将对我很有帮助。

谢谢。

Answer 1

我用不同的方法解决了这个问题。它感觉不那么健壮（匹配 xyz.ipa 的子字符串），但它在我等待灵感时解除了我的阻塞：

import Text.XML.HXT.Core
import Data.Char (toUpper)

uppercase = map toUpper

main = do
  plistString <- readFile "manifest.plist"
  let plistDoc = readString [withValidate no, withSubstDTDEntities no] plistString
  node <- runX . xshow $ plistDoc >>> processTopDown (ifA (hasText ( isInfixOf "xyz.ipa")) (changeText uppercase) (this))
  print node

使用HXT修改XML

Using HXT to modify XML

haskell

hxt