【Lua实战】debug 库实践：sethook 采样定位卡顿热点

-- 采样定位：sethook 挂载
local samples = {}
local sampling = false
local function onHook()
    if not sampling then return end
    local info = debug.getinfo(2, "nSl")
    if info and info.source then
        local key = info.source .. ":" .. (info.currentline or 0)
        samples[key] = (samples[key] or 0) + 1
    end
end
local player = class(actor)
local function startSample(seconds)
    sampling = true
    debug.sethook(onHook, "", 1000000)
    setontimer(player, 9921, seconds, seconds, 0)
end

-- 热点输出：排序与摘除
local player = class(actor)
local function stopAndReport(player)
    debug.sethook()
    sampling = false
    local list = {}
    for key, cnt in pairs(samples) do
        list[#list + 1] = {key = key, cnt = cnt}
    end
    table.sort(list, function(a, b) return a.cnt > b.cnt end)
    for i = 1, math.min(10, #list) do
        sendmsg(player, 1, 0, "热点 " .. i .. "：" .. list[i].key .. " x" .. list[i].cnt)
    end
end