【Lua实战】字符串池：高频名字的内存复用

-- 字符串池：登记与取用
local stringPool = {}
local poolSize = 0
local POOL_CAP = 5000
local function internString(s)
    if stringPool[s] then
        return s
    end
    if poolSize >= POOL_CAP then
        local oldest = next(stringPool)
        stringPool[oldest] = nil
        poolSize = poolSize - 1
    end
    stringPool[s] = true
    poolSize = poolSize + 1
    return s
end

-- 字符串池：聊天与排行复用
local player = class(actor)
local function onChatMessage(player, chatText)
    local interned = internString(chatText)
    sendmsg(player, 1, 0, interned)
end
local function onGuildDisband(player, guildName)
    local cleaned = 0
    for key in pairs(stringPool) do
        if string.find(key, guildName, 1, true) then
            stringPool[key] = nil
            cleaned = cleaned + 1
        end
    end
    poolSize = poolSize - cleaned
    sendmsg(player, 1, 0, guildName .. " 解散，清理关联缓存 " .. cleaned .. " 条。")
end