split() function

toSplit = This, is, a, test.
table = split(toSplit, ", ")

function split(T,func)
if func then
  T=func(T)
end
local Out={}
if type(T)=="table" then
  for k,v in pairs(T) do
   Out[split(k)]=split(v)
  end
else
  Out=T
end
return Out
end

function string.explode(str, div)
    assert(type(str) == "string" and type(div) == "string", "invalid arguments")
    local o = {}
    while true do
        local pos1,pos2 = str:find(div)
        if not pos1 then
            o[#o+1] = str
            break
        end
        o[#o+1],str = str:sub(1,pos1-1),str:sub(pos2+1)
    end
    return o
end

local function split(str, pat)
    local t = {}  -- NOTE: use {n = 0} in Lua-5.0
    if str ~= nil then
       local fpat = "(.-)" .. pat
       local last_end = 1
       local s, e, cap = str:find(fpat, 1)
       while s do
          if s ~= 1 or cap ~= "" then
         table.insert(t,cap)
          end
          last_end = e+1
          s, e, cap = str:find(fpat, last_end)
       end
       if last_end <= #str then
          cap = str:sub(last_end)
          table.insert(t, cap)
       end
    else
        print("##ERROR failed to split ["..str.."] by:"..pat)
    end
    return t
end

local function split( _sInput, _sDelimiter )
    local tReturn = {}
    local delimiter = string.gsub( _sDelimiter, "([%^%$%(%)%%%.%[%]%*%+%-%?])", "%%%1" )
    local searchPattern = "([^"..delimiter.."]+)"..delimiter.."?"

    for match in string.gmatch( _sInput, searchPattern ) do
        table.insert( tReturn, match )
    end
    return tReturn
end

--[[
    _sInput	= String to be split.
    _sDelimiter	= Character to split at.
	
    Returns: a table with delimited values.
]]
local function split( _sInput, _sDelimiter )
    local tReturn = {}
    -- Prepend % to magical characters.
    local delimiter = string.gsub( _sDelimiter, "([%^%$%(%)%%%.%[%]%*%+%-%?])", "%%%1" )
    -- 1 or more characters that are NOT the delimiter, followed by 0 or 1 delimiters; capture the former
    local searchPattern = "([^"..delimiter.."]+)"..delimiter.."?"
    -- Go through all matches and fill the return-table with the captures.
    for match in string.gmatch( _sInput, searchPattern ) do
        table.insert( tReturn, match )
    end
    return tReturn
end