LUA程序设计一书的源码资源-CSDN文库

共11个文件

html：11个

LUA程序设计

4星 · 超过85%的资源需积分: 10 198 浏览量 2010-04-16 21:27:19 上传评论 7 收藏 7KB RAR 举报

资源推荐

资源详情

资源评论

收起资源包目录

source codes.rar （11个子文件）

source codes

account.lua.html 795B

markov.lua.html 2KB

permgen.lua.html 910B

multithread.lua.html 2KB

getfield.lua.html 940B

set.lua.html 2KB

serial.lua.html 1KB

allwords.lua.html 1KB

dump.lua.html 578B

code.html 2KB

plot.lua.html 844B

<html> <head><title>Programming in Lua - Code Examples</title></head> <body bgcolor="#ffffff"> <pre> require "luasocket" -- warning: depending on the version of luasocket that we use, -- we have to change `settimeout' to `timeout' (as done here) function receive (connection) connection:timeout(0) -- do not block local s, status = connection:receive(2^10) if status == "timeout" then coroutine.yield(connection) end return s, status end function download (host, file) local c = assert(socket.connect(host, 80)) local count = 0 -- counts number of bytes read c:send("GET " .. file .. " HTTP/1.0\r\n\r\n") while true do local s, status = receive(c) count = count + string.len(s) if status == "closed" then break end end c:close() print(file, count) end threads = {} -- list of all live threads function get (host, file) -- create coroutine local co = coroutine.create(function () download(host, file) end) -- insert it in the list table.insert(threads, co) end function dispatcher () while true do local n = table.getn(threads) if n == 0 then break end -- no more threads to run local connections = {} for i=1,n do local status, res = coroutine.resume(threads[i]) if not res then -- thread finished its task? table.remove(threads, i) break else -- timeout table.insert(connections, res) end end if table.getn(connections) == n then socket.select(connections) end end end host = "www.w3.org" get(host, "/TR/html401/html40.txt") get(host,"/TR/2002/REC-xhtml1-20020801/xhtml1.pdf") get(host,"/TR/REC-html32.html") get(host, "/TR/2000/REC-DOM-Level-2-Core-20001113/DOM2-Core.txt") dispatcher() -- main loop </pre> </body> </html>

评论收藏

内容反馈