纪念我的第一个Lua程序

__BlueGuy__

linux_c_py_php 发表于 2012-10-20 20:25
脚本嘛, 一定要选一个公认优秀的, 就像python的设计一样.

我们这里用的是十几年前的引擎，据我所知，这个引擎还在被大多数公司使用，
脚本用的是 Lua， 是规定死的， 没的选择, 也没必要选择...

估计 100 年都不会换脚本语言...

__BlueGuy__

>lua -e "io.stdout:setvbuf 'no'" "a.lua"
lua: a.lua:6: bad argument #1 to 'load' (function expected, got string)
stack traceback:
        [C]: in function 'load'
        a.lua:6: in main chunk
        [C]: ?
>Exit code: 1

io.input "in.txt"

local input = io.read "*a"
    :gsub("^char %w+%b[]%b[]%s*=%s*", "")

local res = assert(load("return "..input))()

local function write_short(n)
    io.write(("%c%c"):format(math.floor(n/256)%256, n%256))
end

local function write_byte(n)
    io.write(("%c"):format(n%256))
end

write_short(#res)
for i, v in ipairs(res) do
    write_short(#v)
    for i, v in ipairs(v) do
        write_byte(v)
    end
end

io.output "out.txt"

starwing83

回复 52# __BlueGuy__


    亲爱的BlueGuy同学，为什么在2012年的今天，你还在用06年才推出的Lua 5.1呢？这年头，大家都是用5.2的…………

load是5.2的函数………………

算了，给你一个5.1版本的吧……我都不知道我自己这里跑不跑的了……

1. io.input "in.txt"
   
2. -- io.output "out.dat"
   
3. 
   
4. local input = io.read "*a"
   
5.     :gsub("^char%s*%w+%b[]%b[]%s*=%s*", "")
   
6. 
   
7. local res = assert(loadstring("return "..input))()
   
8. 
   
9. local function write_binary(f)
   
10.     local function write_short(n)
    
11.         io.write(("%c%c"):format(math.floor(n/256)%256, n%256))
    
12.     end
    
13. 
    
14.     local function write_byte(n)
    
15.         io.write(("%c"):format(n%256))
    
16.     end
    
17.     f(write_short, write_byte)
    
18. end
    
19. 
    
20. local function write_text(f)
    
21.     local t = {}
    
22.     local function write_short(n)
    
23.         t[#t+1] = math.floor(n/256)%256
    
24.         t[#t+1] = n%256
    
25.     end
    
26.     local function write_byte(n)
    
27.         t[#t+1] = n%256
    
28.     end
    
29.     f(write_short, write_byte)
    
30.     for i, v in ipairs(t) do
    
31.         io.write(("%02X"):format(v))
    
32.         if i % 16 == 0 then
    
33.             io.write '\n'
    
34.         elseif i % 2 == 0 then
    
35.             io.write ' '
    
36.         end
    
37.     end
    
38.     io.write '\n'
    
39. end
    
40. 
    
41. ("binary" and write_binary or write_text) (
    
42. function(write_short, write_byte)
    
43.     write_short(#res)
    
44.     for i, v in ipairs(res) do
    
45.         write_short(#v)
    
46.         for i, v in ipairs(v) do
    
47.             write_byte(v)
    
48.         end
    
49.     end
    
50. end)
    
51. 
    
52. -- cc: cc='lua51' run+='< in.txt'
    

复制代码

这个程序会读同一个目录下的in.txt文件。输出到终端，如果解注释掉第二行，则输出到out.txt，如果在"binary"前面加一个not，则直接输出文本的16进制数字串。

starwing83

回复 52# __BlueGuy__


    上面的代码，如果你不想要某个功能（写二进制，或者写文本），可以直接删掉那个函数即可。

最先的代码，你只要把load改成loadstring就能跑。

__BlueGuy__

是不是我写错了， ？

io.input "in.txt"

local input = io.read "*a"
    :gsub("^char %w+%b[]%b[]%s*=%s*", "")

local res = assert(loadstring("return "..input))()

local function write_short(n)
    io.write(("%c%c"):format(math.floor(n/256)%256, n%256))
end

local function write_byte(n)
    io.write(("%c"):format(n%256))
end

write_short(#res)
for i, v in ipairs(res) do
    write_short(#v)
    for i, v in ipairs(v) do
        write_byte(v)
    end
end

io.output "out.txt"

>lua -e "io.stdout:setvbuf 'no'" "a.lua"










>Exit code: 0

starwing83

没写错……而且肯定输出了，只是scite自己不认那些控制字符（字符串的第一个byte可是00啊！！）

io.output 'out.txt'放到最前，紧靠io.input那行即可。恩，你离成功就一步了。

__BlueGuy__

回复 56# starwing83
输出格式有点问题，维度是2个字节

真的成功了， 比较有实用价值的 Lua 程序， 纪念一下










   

starwing83

回复 57# __BlueGuy__


    你看，lua只用了20行，C的话要多少捏………………

__BlueGuy__

回复 58# starwing83


不知其所以然, Lua 方便，C 有趣...   

聆音听墨

以前用它写过wireshark脚本，现在全忘了啊！！！