Lua 打印 table (支持双向引用的table)

网上搜了一下，挺多打印table的方案，基本思路都是一层一层递归遍历table。（我就是参考这种思路做的^_^）

但大部分都不支持双向引用的打印。我所指的双向引用，就是a引用b, b又直接或间接引用a。例如下面的双向链表：

local node1 = {}
local node2 = {}
local node3 = {}

node1.value = 1
node1.pre = nil
node1.next = node2

node2.value = 2
node2.pre = node1
node2.next = node3

node3.value = 3
node3.pre = node2
node3.next = nil

像这样一个双链表，网上的很多方法，处理这种情况时，递归无法结束。因为，node1 表里有个 node2, 遍历node2时，又发现有个node1，如此反复

那要怎么处理呢？我的方案是：把每个table的父级table用一个链表保存起来，当判断到当前要处理的table存在于父级链表里，就停止处理。

完整代码如下：

------ 把table转成string
-- sign 打印在最前面的一个标记
-- tab 待处理table
-- showAddress 是否显示table的地址
function TabToStr(sign, tab, showAddress)

    -- 缓存table地址，防止递归死循环
    local tabs = {};
    local check = function(cur_tab, key, parentKey, level)
        local tempP = tabs[(level-1) .. parentKey]
        while tempP do
            if tempP.id == tostring(cur_tab) then
                return false;
            end
            tempP = tempP.parent;
        end

        tabs[level .. key] = {};
        tabs[level .. key].id = tostring(cur_tab);
        tabs[level .. key].parent = tabs[(level-1) .. parentKey];

        return true;
    end

    -- 处理直接传入table的情况
    if tab == nil then
        tab = sign;
        sign = "table:";
    end

    local targetType = type(tab);
    if targetType == "table" then
        local isHead = false;
        local function dump(t, tKey, space, level)
            local temp = {};
            if not isHead then
                temp = {sign or "table:"};
                isHead = true;
            end

            if tKey ~= "_fields" then
                table.insert(temp, string.format("%s{", string.rep("    ", level)));
            end
            for k, v in pairs(t) do
                local key = tostring(k);
                -- 协议返回内容
                if key == "_fields" then
                    local fields = {};
                    for fk, fv in pairs(v) do
                        fields[fk.name] = fv;
                    end
                    table.insert(temp, dump(fields, key, space, level))
                    -- 如果是table模拟的类，忽略。 以下划线开头的字段, 忽略
                elseif key == "class" or string.sub(key, 1, string.len("_")) == "_" then
                    -- 这里忽略

                elseif type(v) == "table" then
                    if check(v, key, tKey, level) then
                        if showAddress then
                            table.insert(temp, string.format("%s%s: %s
%s", string.rep("    ", level+1), key, tostring(v), dump(v, key, space, level + 1)));
                        else
                            table.insert(temp, string.format("%s%s: 
%s", string.rep("    ", level+1), key, dump(v, key, space, level + 1)));
                        end
                    else
                        table.insert(temp, string.format("%s%s: %s (loop)", string.rep("    ", level+1), key, tostring(v)));
                    end
                else
                    table.insert(temp, string.format("%s%s: %s", string.rep("    ", level+1), key, tostring(v)));
                end
            end
            if tKey ~= "_fields" then
                table.insert(temp, string.format("%s}", string.rep("    ", level)));
            end

            return table.concat(temp, string.format("%s
", space));
        end
        return dump(tab, "", "", 0);
    else
        return tostring(tab);
    end
end

核心方法说明：

check 方法， 检测父级table链表中是否存在当前table

dump 方法， 递归遍历table

上面代码在实际项目中测试可用,一般情况可以直接使用。但有些是根据项目情况填充的内容。想要理解或改写的话，看下面的精简dump方法

local function dump(t, tKey, space, level)
    local temp = {};
    table.insert(temp, string.format("%s{", string.rep("    ", level)));
    for k, v in pairs(t) do
        local key = tostring(k);
        if type(v) == "table" then
            if check(v, key, tKey, level) then
                table.insert(temp, string.format("%s%s: 
%s", string.rep("    ", level+1), key, dump(v, key, space, level + 1)));
            else
                table.insert(temp, string.format("%s%s: %s (loop)", string.rep("    ", level+1), key, tostring(v)));
            end
        else
            table.insert(temp, string.format("%s%s: %s", string.rep("    ", level+1), key, tostring(v)));
        end
    end
    table.insert(temp, string.format("%s}", string.rep("    ", level)));
    return table.concat(temp, string.format("%s
", space));
end

测试：

tab = {1, 2, 3, 4, {5, 6, 7, 8}}
-- 这里的node1就是上面贴出的双向链表
print (TabToStr("node1", node1, true))
print (TabToStr("node1", node1))
print (TabToStr(tab))

结果：