lua实现php的print_r 函数功能

最新推荐文章于 2021-06-23 17:29:31 发布

千山万水

最新推荐文章于 2021-06-23 17:29:31 发布

阅读量1.1k

点赞数

分类专栏： lua 文章标签： lua php table reference list function

本文链接：https://blog.csdn.net/chencong112/article/details/6701989

版权

lua 专栏收录该内容

20 篇文章 0 订阅

订阅专栏

-- example usage:
--
-- require 'print_r'
-- a = {x=1, y=2, label={text='hans', color='blue'}, list={'a','b','c'}}
-- pr(a, 'My table')
--
--My table = {
--|  y = 2
--|  x = 1
--|  list = {
--|  |  [1] = "a"p
--|  |  [2] = "b"
--|  |  [3] = "c"
--|  }
--|  label = {
--|  |  color = "blue"
--|  |  text = "hans"
--|  }
--}
--
-- Copyright 2009: hans@hpelbers.org
-- This is freeware


function pr (t, name, indent)

  local tableList = {}
  function table_r (t, name, indent, full)
    local id = not full and name
        or type(name)~="number" and tostring(name) or '['..name..']'
    local tag = indent .. id .. ' = '
    local out = {}  -- result
    if type(t) == "table" then
      if tableList[t] ~= nil then table.insert(out, tag .. '{} -- ' .. tableList[t] .. ' (self reference)')
      else
        tableList[t]= full and (full .. '.' .. id) or id
        if next(t) then -- Table not emptyempty
          table.insert(out, tag .. '{')
          for key,value in pairs(t) do
            table.insert(out,table_r(value,key,indent .. '|  ',tableList[t]))
          end
          table.insert(out,indent .. '}')
        else table.insert(out,tag .. '{}') end
      end
    else
      local val = type(t)~="number" and type(t)~="boolean" and '"'..tostring(t)..'"' or tostring(t)
      table.insert(out, tag .. val)
    end
    return table.concat(out, '\n')
  end
  return table_r(t,name or 'Value',indent or '')
end

function print_r (t, name)
  print(pr(t,name))
end