lua程序设计（第四版）练习答案自做（第二十五章）

最新推荐文章于 2024-04-01 12:47:44 发布
最新推荐文章于 2024-04-01 12:47:44 发布
阅读量145 收藏
点赞数
分类专栏： lua笔记 文章标签： lua
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/fuluoyide312/article/details/116671054
版权

文章目录

25.1

#!/usr/bin/lua
function getvarvalue(...)
        local co=...
        if type(co)=="thread" then
                local name,level,isenv=select(2,...)
                local value
                local found=false
                level=level or 1
                for i=1,math.huge do
                        local n,v=debug.getlocal(co,level,i)
                        if not n then
                                break
                        end
                        if n==name then
                                value=v
                                found=true
                        end
                end
                if found then
                        return "local",value
                end
                local func=debug.getinfo(co,level,"f").func
                for i=1,math.huge do
                        local n,v=debug.getupvalue(func,i)
                        if not n then
                                break
                        end
                        if n==name then
                                return "upvalue",v
                        end
                end
                if isenv then
                        return "noenv"
                end
                local _,env=getvarvalue(co,"_ENV",level,true)
                if env then
                        return "global",env[name]
                else
                        return "noenv"
                end
        else
                local name,level,isenv=...
                local value
                local found=false
                level=(level or 1)+1
                for i=1,math.huge do
                        local n,v=debug.getlocal(level,i)
                        if not n then
                                break
                        end
                        if n==name then
                                value=v
                                found=true
                        end
                end
                if found then
                        return "local",value
                end
                local func=debug.getinfo(level,"f").func
                for i=1,math.huge do
                        local n,v=debug.getupvalue(func,i)
                        if not n then
                                break
                        end
                        if n==name then
                                return "upvalue",v
                        end
                end
                if isenv then
                        return "noenv"
                end
                local _,env=getvarvalue("_ENV",level,true)
                if env then
                        return "global",env[name]
                else
                        return "noenv"
                end
        end
end

25.2

#!/usr/bin/lua
function setvarvalue(name,value,level)
        level=(level or 1)+1
        for i=1,math.huge do
                local n,v=debug.getlocal(level,i)
                if not n then
                        break
                end
                if n==name then
                        debug.setlocal(level,i,value)
                        return "local"
                end
        end

        local func=debug.getinfo(level,"f").func
        for i=1,math.huge do
                local n,v=debug.getupvalue(func,i)
                if not n then
                        break
                end
                if n==name then
                        debug.setupvalue(func,i,value)
                        return "upvalue"
                end
        end
        for i=1,math.huge do
                local n,v=debug.getupvalue(func,i)
                if not n then
                        break
                end
                if n=="_ENV" then
                        v[name]=value
                        return "global"
                end
        end
end

25.3

#!/usr/bin/lua
function getvarvalue()
        local res={}
        local level=2
        local env
        for i=1,math.huge do
                local n,v=debug.getlocal(level,i)
                if not n then
                        break
                end
                res[n]=v
        end
        local func=debug.getinfo(level,"f").func
        for i=1,math.huge do
                local n,v=debug.getupvalue(func,i)
                if not n then
                        break
                end
                if n=="_ENV" then
                        env=v
                end
                res[n]=v
        end
        if env then
                res.__index=env
                setmetatable(res,res)
        end
        return res
end

25.4

#!/usr/bin/lua
function getvarvalue(_,name,level,isenv)
        local value
        local found=false
        level=(level or 3)+1
        for i=1,math.huge do
                local n,v=debug.getlocal(level,i)
                if not n then
                        break
                end
                if n==name then
                        value=v
                        found=true
                end
        end
        if found then
                return value
        end
        local func=debug.getinfo(level,"f").func
        for i=1,math.huge do
                local n,v=debug.getupvalue(func,i)
                if not n then
                        break
                end
                if n==name then
                        return v
                end
        end
        if isenv then
                return "noenv"
        end
        local env=getvarvalue(nil,"_ENV",level,true)
        if env then
                return env[name]
        else
                return "noenv"
        end
end
function setvarvalue(_,name,value,level)
        level=(level or 3)+1
        for i=1,math.huge do
                local n,v=debug.getlocal(level,i)
                if not n then
                        break
                end
                if n==name then
                        debug.setlocal(level,i,value)
                        return "local"
                end
        end
        local func=debug.getinfo(level,"f").func
        for i=1,math.huge do
                local n,v=debug.getupvalue(func,i)
                if not n then
                        break
                end
                if n==name then
                        debug.setupvalue(func,i,value)
                        return "upvalue"
                end
        end
        for i=1,math.huge do
                local n,v=debug.getupvalue(func,i)
                if not n then
                        break
                end
                if n=="_ENV" then
                        v[name]=value
                        return "global"
                end
        end
end
function debug1()
        while true do
                io.write("debug> ")
                local line=io.read()
                if line=="cont" then
                        break
                end
                local env={print=print,__index=getvarvalue,__newindex=setvarvalue}
                setmetatable(env,env)
                load(line,"testcode","t",env)()
        end
end

25.5

#!/usr/bin/lua
function getvarvalue(_,name,level,isenv)
        local value
        local found=false
        level=(level or 3)+1
        for i=1,math.huge do
                local n,v=debug.getlocal(level,i)
                if not n then
                        break
                end
                if n==name then
                        value=v
                        found=true
                end
        end
        if found then
                return value
        end
        local func=debug.getinfo(level,"f").func
        for i=1,math.huge do
                local n,v=debug.getupvalue(func,i)
                if not n then
                        break
                end
                if n==name then
                        return v
                end
        end
        if isenv then
                return "noenv"
        end
        local env=getvarvalue(nil,"_ENV",level,true)
        if env then
                return env[name]
        else
                return "noenv"
        end
end
function setvarvalue(_,name,value,level)
        level=(level or 3)+1
        for i=1,math.huge do
                local n,v=debug.getlocal(level,i)
                if not n then
                        break
                end
                if n==name then
                        debug.setlocal(level,i,value)
                        return "local"
                end
        end
        local func=debug.getinfo(level,"f").func
        for i=1,math.huge do
                local n,v=debug.getupvalue(func,i)
                if not n then
                        break
                end
                if n==name then
                        debug.setupvalue(func,i,value)
                        return "upvalue"
                end
        end
        for i=1,math.huge do
                local n,v=debug.getupvalue(func,i)
                if not n then
                        break
                end
                if n=="_ENV" then
                        v[name]=value
                        return "global"
                end
        end
end
function debug1()
        while true do
                io.write("debug> ")
                local line=io.read()
                if line=="cont" then
                        break
                end
                local env={print=print,__index=getvarvalue,__newindex=setvarvalue}
                setmetatable(env,env)
                load(line,"testcode","t",env)()
        end
end

25.6

待完善

25.7

local breakpoint={}
local function hook(event,line)
        if breakpoint[line] then
                debug.debug()
        end
end
local function setbreakpoint(func,line)
        breakpoint[line]=true
        if not debug.gethook() then
                debug.sethook(hook,"l")
        end
        return line
end
local function removebreakpoint(handle)
        breakpoint[handle]=nil
end
return {
        setbreakpoint=setbreakpoint,
        removebreakpoint=removebreakpoint,
}

25.8

待完善

fuluoyide312
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
使用C++调用 LUA 函数收藏
skyremember的专栏
09-13 1498
使用C++调用 LUA 函数收藏 新一篇: 在你的游戏中应用LUA | 旧一篇: 使用模板快速排序 function StorePage(){d=document;t=d.selection?(d.selection.type!=None?d.selection.createRange().text:):(d.getSelection?d.getSelection(
24.1 Lua debug library
语言观止
12-05 5429
Debug库并没有为你提供一个Lua的调试器，而是为你提供了编写个人调试器的基本功能。出于性能的考虑，调用基本功能的正式接口都是通过C API提供。在Lua中访问debug库的一种方式是通过Lua代码直接访问。 和其他库不同，你要很吝啬的使用debug库。首先，库中的很多功能都会影响性能。其次，它打破了Lua中一些颠扑不破的真理，比如在一个局部变量的作用域之外，你不能访问它。最后，你可以
Lua程序设计（七十二）
sxylyr的博客
03-19 160
访问非局部变量 调试库还提供了函数 getupvalue, 该函数允许我们访问一个被 Lua 函数所使用的非局部变量。与局部变量不同，被一个函数所调用的非局部变量即使在引用它的函数已经不活跃的情况下也会一直存在（闭包的实质）。因此，函数 getupvalue 的第一个参数不是栈层次，而是一个函数（更确切地说，是一个闭包）。函数 getupvalue 的第二个参数时变量索引，Lua 语言按照函数引用...
[原]FreeSWITCH中的lua操作小结
weixin_30642267的博客
09-20 651
lua中设置当前通道变量： 方法一： session:setVariable("fullName", "xxxxx");--需判断session是否为空 方法二： local uuid =getUUID(callerid); local res=api:executeString("uuid_setvar ".. uuid .." fullName ".."xxxxxxx") 该处设置...
《Lua程序设计(第4版)》:第3章练习答案
Belous的博客
01-20 1570
目录 总结 练习 练习3.1 练习3.2 练习3.3 练习3.4 练习3.5 练习3.6 练习3.7 总结 数值类型：Lua语言中8种基本数据类型，其中表示数值的是number。数值类型又分为两种，分别是代表整型的 integer 和浮点数的 float 精简模式：在标准Lua下，整型是64位大小，浮点数是双精度的。在资源有限的平台下，可以通过宏 LUA_32BITS 编译...
PYTHON语言程序设计基础 第2版第二版 嵩天答案
最新发布
chatgpt002的博客
04-01 1369
Python是当今主流Web开发科学计算数据分析游戏开发机器学习爬虫计算机视觉（1）Web开发。Python是Web开发的主流语言，与JS、PHP等广泛使用的语言相比，Python的类库丰富、使用方便，能够为一个需求提供多种方案；此外Python支持最新的XML技术，具有强大的数据处理能力，因此Python在Web开发中占有一席之地。Python为Web开发领域提供的框架有django、flask、tornado、web2py等。（2）科学计算。
Python爬虫开发学习全教程第二版，爆肝十万字【建议收藏】
热门推荐
五包辣条的博客
10-17 4万+
大家好，我是辣条。 上次整理的爬虫教程反响不错，但是还是有小伙伴表示不够细致，今天带了升级版，全文很长，建议先收藏下来。 一、爬虫基础 爬虫概述 知识点： 了解 爬虫的概念 了解 爬虫的作用 了解 爬虫的分类 掌握 爬虫的流程 1. 爬虫的概念 模拟浏览器，发送请求，获取响应 网络爬虫（又被称为网页蜘蛛，网络机器人）就是模拟客户端(主要指浏览器)发送网络请求，接收请求响应，一种按照一定的规则，自动地抓取互联网信息的程序。 原则上,只要是客户端(浏
MOOC·嵩天老师团队·北京理工大学：《Python语言程序设计》自学笔记
杰之行的博客
09-14 8369
小编想使用python帮助自己在网上快速筛选文献、股票信息提取、写批处理脚本等，最近学习了股票信息提取，发现半年前学的基础知识已经忘完了，而且还没有笔记查询。本文就用MOOC北京理工大学：《Python语言程序设计》的课件，整理一下。 课程导学 学习python的基本要求： 会使用计算机和Office软件 阅读简单英文内容、3级及以上水平 熟练使用Web浏览器 每周至少1-2个小时，连续9周 第1章 Python基本语法元素 1.1 程序设计基本方法 1.2 Python开发环境配置 1.3 实例1:
Linux多线程服务端编程：使用muduo C++网络库 学习笔记 第十二章 C++经验谈（一）
tus00000的博客
02-22 1355
作者对C++的基本态度是“练从难处练，用从易处用”，因此本章有几节“负面”的内容。作者坚信软件开发一定要时刻注意减少不必要的复杂度，一些花团锦簇的招式玩不好反倒会伤到自己。作为应用程序的开发者，对技术的运用要明智，不要为了解决难度系数为10的问题而去强攻难度系数为100的问题，这就本末倒置了。 12.1 用异或来交换变量是错误的 反转一个字符串，例如把“12345”变成“54321”，这是一个最简单不过的编码任务，即便是C语言初学者也能毫不费力地写出类似如下的代码： // 版本一，用中间变量交换两个数，好代
微信小程序开发导航：精品教程+网友观点+demo源码（5月9日更新）
u012421719的博客
10-24 9976
本文长期更新
8w 字，给程序员的职场第一课（上篇）
GitChat
07-07 1万+
本文适合正处在大学阶段，准备毕业以及已经毕业的朋友，对于职场选择，成长方向感兴趣的相关人士。 学完此课程，你能够明白你的学习方向，技巧，以及提前知道职场需要怎么突围，成长，提升，为自己突围职场，制定自己的计划。 同时，文章里面给出了一些我的职场经历，希望能够让大家对程序员这个圈子有所深入理解。总计 30 讲，这一篇是上篇，目录清单： 前言：关于职场，你需要不断拼搏 大学最重要的 8 件事 大公司...
Spark大数据处理讲课笔记2.2 搭建Spark开发环境
howard2005的专栏
03-20 1185
1. Spark开发环境准备工作； 2. 了解Spark的三种部署方式； 3. 搭建Spark单机版环境； 4. 搭建Spark Standalone集群； 5. 体验第一个Spark程序； 6. 在Spark Shell里基本操作； 7. 初识弹性分布式数据集RDD
iOS 强大第三方资源库
weixin_34237596的博客
03-08 1万+
Github用法 git-recipesGit recipes in Chinese. 高质量的Git中文教程. lark怎样在Github上面贡献代码 my-git有关 git 的学习资料 gitignore非常赞 有用的.gitignore模板集合(忽略上传的文件集合)，包含了各种语言. 完整App@ open-source-ios-apps- iOS开源App集合，分：swift与Objec...
自己的碎碎念集合
老林的博客
09-08 806
我的一些短篇内容合集
lua程序设计（第四版）练习答案自做（第四章）
fuluoyide312的博客
12-15 589
文章目录练习4.1练习4.2练习4.3练习4.4练习4.5练习4.6练习4.7练习4.8练习4.9 练习4.1 string=[==[ <![CDATE[ Hello world ]]>]==] 或者 string1="\060\033\091CDATA\091\010\009Hello\032world\010\093\093\062" 练习4.2 使用\x样式的转义字符序列。 练习4.3 见仓库 练习4.4 待完善 练习4.5 见仓库 练习4.6 待完善 练习4.7 见仓库 练习4.8
lua程序设计（第四版）练习答案自做（第五章）
fuluoyide312的博客
12-19 474
文章目录12345678 1 monday sunday sunday 2 a a.a a.a.a a.a.a.a都指向同一个表 执行a.a.a.a=3即指定该表关键字为字符串“a”的值为3，这时候再执行a.a.a.a会发生错误，因为a.a的值为3. 3 t={["\a"]="\007",["\t"]="\009",["\n"]="\010"} 4 #!/usr/bin/lua --[[ 假设多项式是3x^5+4x^4-2x^3+8x^2-x^1+9 ]] function polynomial(x
lua程序设计（第四版）练习答案自做（第一章）
fuluoyide312的博客
12-03 433
目录前言第一章1.11.21.31.41.51.61.71.8 前言 代码在gitee仓库内。 第一章 1.1 栈溢出，修改后。 1.2 略 1.3 SQL 1.4 ___ _end End NULL 1.5 false，因为type()返回字符串，与nil不同类型。 1.6 排除nil之后穷举比较a==nil or a==true or a==false 1.7 不必要，因为优先级从高等地分别是not and or，但推荐使用括号，增加可读性。 1.8 见仓库 ...
lua程序设计（第四版）练习答案自做（第十章）
fuluoyide312的博客
01-25 372
文章目录10.110.210.310.410.5lua模式匹配[^2]相关函数string.find()string.match()string.gmatch()string.gsub()限定字符 仓库 10.1 #!/usr/bin/env lua function split(s,d) local word={} d=("[".."^"..d.."]".."+") for w in string.gmatch(s,d) do word[#word+1]=w end return word e
Lua程序设计（第2版）：嵌入式脚本的高效选择
《Lua程序设计（第2版）中文版》是一本深入介绍Lua编程语言的书籍，它强调了Lua作为一种轻量级、高效且灵活的语言在软件开发中的重要性。Lua的特点在于其与C/C++的高度兼容性，这使得它能够无缝地与这两种语言进行...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值