local xml = {_version = "0.1.1"} -- 定义一个空表，用于存储模块的函数和变量'
|
|
-- 数据清洗函数（处理命名空间和空值）把 <soap:Body> 改成 <Body>
|
local function clean_data(data)
|
local function process(tbl)
|
local result = {}
|
for k, v in pairs(tbl) do
|
-- 去除命名空间前缀[6,9](@ref)
|
local new_key = k:gsub("v1:", ""):gsub("soap:", ""):gsub("soapenv:", "")
|
|
if type(v) == "table" then
|
-- 处理数组结构[4](@ref)
|
if #v > 0 then
|
local arr = {}
|
for i, item in ipairs(v) do
|
arr[i] = process(item)
|
end
|
result[new_key] = arr
|
else
|
result[new_key] = process(v)
|
end
|
else
|
result[new_key] = v ~= "" and v or nil
|
end
|
end
|
if next(result) == nil then result = "" end
|
return result
|
end
|
return process(data)
|
end
|
|
function xml.parse(xml_str)
|
local handler = require("xmlhandler.tree")
|
local xml2lua = require("xml2lua")
|
|
local h = handler:new()
|
-- 使用 pcall 捕获异常
|
local ok, err = pcall( function() xml2lua.parser(h):parse(xml_str) end )
|
if not ok then
|
return 1, "XML解析失败:"..err
|
end
|
return 0, clean_data( h.root )
|
end
|
|
function xml.json_to_xml(data, root_tag)
|
local xml = {}
|
local function build_xml(node, tag)
|
if type(node) == "table" then
|
xml[#xml + 1] = "<" .. tag .. ">"
|
for k, v in pairs(node) do
|
build_xml(v, k) -- 递归处理子节点
|
end
|
xml[#xml + 1] = "</" .. tag .. ">"
|
else
|
xml[#xml + 1] = "<" .. tag .. ">" .. tostring(node) .. "</" .. tag .. ">"
|
end
|
end
|
build_xml(data, root_tag or "root")
|
return table.concat(xml)
|
end
|
|
return xml
|
