跳转到内容

模块:Test：修订间差异

来自LabAnimalWiki
Czhen​（留言 | 贡献）
机器人、​行政员、​contenteditor、​界面管理员、​监督员、​管理员
109次编辑
创建页面，内容为“-- Two dashes start a one-line comment. --[[ Adding two ['s and ]'s makes it a multi-line comment. --]] ---------------------------------------------------- -- 1. Variables and flow control. ---------------------------------------------------- num = 42 -- All numbers are doubles. -- Don't freak out, 64-bit doubles have 52 bits for -- storing exact int values; machine precision is -- not a problem for ints that need < 52 bits. s = 'walternate' --…”
 
Czhen​（留言 | 贡献）
机器人、​行政员、​contenteditor、​界面管理员、​监督员、​管理员
109次编辑
无编辑摘要
 
（未显示同一用户的8个中间版本）
第1行： 第1行：
-- Two dashes start a one-line comment.
local p = {} -- 初始化模块对象


--[[
function p.getRandomPages(frame)
    Adding two ['s and ]'s makes it a
    local args = frame.args
    multi-line comment.
    -- 从模板参数获取分类名称和要获取的数量，若无参数则使用默认值
--]]
    local category = args['category'] or '分类名称' -- 请务必修改“分类名称”或通过参数传入
    local count = tonumber(args['count']) or 8 -- 默认获取8条


----------------------------------------------------
    -- 1. 检查 mw.ext.DPL 是否可用
-- 1. Variables and flow control.
    if type(mw.ext) ~= 'table' or type(mw.ext.DPL) ~= 'table' or type(mw.ext.DPL.dump) ~= 'function' then
----------------------------------------------------
        return "''错误：DPL 扩展未安装、未启用 Lua 支持或版本不兼容。'"
        -- 作为降级方案，可以在此尝试返回普通的DPL3调用wikitext，但无法在Lua内随机化
        -- return string.format('<dpl>\ncategory = %s\ncount = %d\nordermethod = title\nmode = unordered\n</dpl>', category, count)
    end


num = 42  -- All numbers are doubles.
    -- 2. 使用DPL3获取分类下的页面列表
-- Don't freak out, 64-bit doubles have 52 bits for
    local success, dplResult = pcall(function()
-- storing exact int values; machine precision is
        return mw.ext.DPL.dump({
-- not a problem for ints that need < 52 bits.
            category = category,
            namespace = '0', -- 通常为主名字空间，可根据需要调整或通过参数指定
            -- 为了性能，初次获取可以限制一个较大的数量，比如100，然后从中随机选择。如果分类页面很少，可以调小。
            count = 100,
            ordermethod = 'title', -- 初始排序方式，后续会随机化
            mode = 'none', -- 不直接输出，仅获取数据
            ignoreerrors = true,
        })
    end)


s = 'walternate'  -- Immutable strings like Python.
    -- 3. 处理DPL3调用可能出现的错误
t = "double-quotes are also fine"
    if not success then
u = [[ Double brackets
        return "''DPL 查询执行过程中出错：' .. dplResult"
      start and end
    end
      multi-line strings.]]
    if type(dplResult) ~= 'table' or #dplResult == 0 then
t = nil  -- Undefines t; Lua has garbage collection.
        return "''分类“" .. category .. "”下未找到页面或分类不存在。'"
    end


-- Blocks are denoted with keywords like do/end:
    -- 4. 随机化处理页面列表
while num < 50 do
    -- 设置随机种子，以增加随机性。注意：在缓存期内，由于页面输出被缓存，结果仍固定。
  num = num + 1  -- No ++ or += type operators.
    math.randomseed(os.time())
end
    -- 使用 Fisher-Yates 洗牌算法对获取到的页面数组进行随机排序
 
    for i = #dplResult, 2, -1 do
-- If clauses:
        local j = math.random(i)
if num > 40 then
        dplResult[i], dplResult[j] = dplResult[j], dplResult[i]
  print('over 40')
     end
elseif s ~= 'walternate' then  -- ~= is not equals.
  -- Equality check is == like Python; ok for strs.
  io.write('not over 40\n')  -- Defaults to stdout.
else
  -- Variables are global by default.
  thisIsGlobal = 5  -- Camel case is common.
 
  -- How to make a variable local:
  local line = io.read() -- Reads next stdin line.
 
  -- String concatenation uses the .. operator:
  print('Winter is coming, ' .. line)
end
 
-- Undefined variables return nil.
-- This is not an error:
foo = anUnknownVariable  -- Now foo = nil.
 
aBoolValue = false
 
-- Only nil and false are falsy; 0 and '' are true!
if not aBoolValue then print('twas false') end
 
-- 'or' and 'and' are short-circuited.
-- This is similar to the a?b:c operator in C/js:
ans = aBoolValue and 'yes' or 'no'  --> 'no'
 
karlSum = 0
for i = 1, 100 do  -- The range includes both ends.
  karlSum = karlSum + i
end
 
-- Use "100, 1, -1" as the range to count down:
fredSum = 0
for j = 100, 1, -1 do fredSum = fredSum + j end
 
-- In general, the range is begin, end[, step].
 
-- Another loop construct:
repeat
  print('the way of the future')
  num = num - 1
until num == 0
 
 
----------------------------------------------------
-- 2. Functions.
----------------------------------------------------
 
function fib(n)
  if n < 2 then return 1 end
  return fib(n - 2) + fib(n - 1)
end
 
-- Closures and anonymous functions are ok:
function adder(x)
  -- The returned function is created when adder is
  -- called, and remembers the value of x:
  return function (y) return x + y end
end
a1 = adder(9)
a2 = adder(36)
print(a1(16))  --> 25
print(a2(64))  --> 100
 
-- Returns, func calls, and assignments all work
-- with lists that may be mismatched in length.
-- Unmatched receivers are nil;
-- unmatched senders are discarded.
 
x, y, z = 1, 2, 3, 4
-- Now x = 1, y = 2, z = 3, and 4 is thrown away.
 
function bar(a, b, c)
  print(a, b, c)
  return 4, 8, 15, 16, 23, 42
end
 
x, y = bar('zaphod')  --> prints "zaphod  nil nil"
-- Now x = 4, y = 8, values 15..42 are discarded.
 
-- Functions are first-class, may be local/global.
-- These are the same:
function f(x) return x * x end
f = function (x) return x * x end
 
-- And so are these:
local function g(x) return math.sin(x) end
local g; g  = function (x) return math.sin(x) end
-- the 'local g' decl makes g-self-references ok.
 
-- Trig funcs work in radians, by the way.
 
-- Calls with one string param don't need parens:
print 'hello'  -- Works fine.
 
 
----------------------------------------------------
-- 3. Tables.
----------------------------------------------------
 
-- Tables = Lua's only compound data structure;
--          they are associative arrays.
-- Similar to php arrays or js objects, they are
-- hash-lookup dicts that can also be used as lists.
 
-- Using tables as dictionaries / maps:
 
-- Dict literals have string keys by default:
t = {key1 = 'value1', key2 = false}
 
-- String keys can use js-like dot notation:
print(t.key1) -- Prints 'value1'.
t.newKey = {}  -- Adds a new key/value pair.
t.key2 = nil  -- Removes key2 from the table.
 
-- Literal notation for any (non-nil) value as key:
u = {['@!#'] = 'qbert', [{}] = 1729, [6.28] = 'tau'}
print(u[6.28])  -- prints "tau"
 
-- Key matching is basically by value for numbers
-- and strings, but by identity for tables.
a = u['@!#'] -- Now a = 'qbert'.
b = u[{}]     -- We might expect 1729, but it's nil:
-- b = nil since the lookup fails. It fails
-- because the key we used is not the same object
-- as the one used to store the original value. So
-- strings & numbers are more portable keys.
 
-- A one-table-param function call needs no parens:
function h(x) print(x.key1) end
h{key1 = 'Sonmi~451'}  -- Prints 'Sonmi~451'.
 
for key, val in pairs(u) do  -- Table iteration.
  print(key, val)
end
 
-- _G is a special table of all globals.
print(_G['_G'] == _G)  -- Prints 'true'.
 
-- Using tables as lists / arrays:
 
-- List literals implicitly set up int keys:
v = {'value1', 'value2', 1.21, 'gigawatts'}
for i = 1, #v do  -- #v is the size of v for lists.
  print(v[i])  -- Indices start at 1 !! SO CRAZY!
end
-- A 'list' is not a real type. v is just a table
-- with consecutive integer keys, treated as a list.
 
----------------------------------------------------
-- 3.1 Metatables and metamethods.
----------------------------------------------------
 
-- A table can have a metatable that gives the table
-- operator-overloadish behavior. Later we'll see
-- how metatables support js-prototypey behavior.
 
f1 = {a = 1, b = 2}  -- Represents the fraction a/b.
f2 = {a = 2, b = 3}
 
-- This would fail:
-- s = f1 + f2
 
metafraction = {}
function metafraction.__add(f1, f2)
  sum = {}
  sum.b = f1.b * f2.b
  sum.a = f1.a * f2.b + f2.a * f1.b
  return sum
end
 
setmetatable(f1, metafraction)
setmetatable(f2, metafraction)
 
s = f1 + f2  -- call __add(f1, f2) on f1's metatable
 
-- f1, f2 have no key for their metatable, unlike
-- prototypes in js, so you must retrieve it as in
-- getmetatable(f1). The metatable is a normal table
-- with keys that Lua knows about, like __add.
 
-- But the next line fails since s has no metatable:
-- t = s + s
-- Class-like patterns given below would fix this.
 
-- An __index on a metatable overloads dot lookups:
defaultFavs = {animal = 'gru', food = 'donuts'}
myFavs = {food = 'pizza'}
setmetatable(myFavs, {__index = defaultFavs})
eatenBy = myFavs.animal  -- works! thanks, metatable
 
-- Direct table lookups that fail will retry using
-- the metatable's __index value, and this recurses.
 
-- An __index value can also be a function(tbl, key)
-- for more customized lookups.
 
-- Values of __index,add, .. are called metamethods.
-- Full list. Here a is a table with the metamethod.
 
-- __add(a, b)                    for a + b
-- __sub(a, b)                    for a - b
-- __mul(a, b)                    for a * b
-- __div(a, b)                    for a / b
-- __mod(a, b)                    for a % b
-- __pow(a, b)                    for a ^ b
-- __unm(a)                        for -a
-- __concat(a, b)                  for a .. b
-- __len(a)                        for #a
-- __eq(a, b)                      for a == b
-- __lt(a, b)                      for a < b
-- __le(a, b)                      for a <= b
-- __index(a, b)  <fn or a table>  for a.b
-- __newindex(a, b, c)            for a.b = c
-- __call(a, ...)                  for a(...)
 
----------------------------------------------------
-- 3.2 Class-like tables and inheritance.
----------------------------------------------------
 
-- Classes aren't built in; there are different ways
-- to make them using tables and metatables.
 
-- Explanation for this example is below it.
 
Dog = {}                                  -- 1.
 
function Dog:new()                        -- 2.
  newObj = {sound = 'woof'}                -- 3.
  self.__index = self                      -- 4.
  return setmetatable(newObj, self)        -- 5.
end
 
function Dog:makeSound()                  -- 6.
  print('I say ' .. self.sound)
end


mrDog = Dog:new()                         -- 7.
    -- 5. 截取前 count 个结果
mrDog:makeSound() -- 'I say woof'         -- 8.
    local selectedPages = {}
    for i = 1, math.min(count, #dplResult) do
        table.insert(selectedPages, dplResult[i].title) -- 获取页面标题
         -- 如果需要更多信息，例如页面URL或命名空间，可以使用 dplResult[i].fulltext 等
    end


-- 1. Dog acts like a class; it's really a table.
    -- 6. 格式化输出为Wiki文本列表（这里以无序列表为例）
-- 2. function tablename:fn(...) is the same as
    local outputList = {}
--    function tablename.fn(self, ...)
    for _, title in ipairs(selectedPages) do
--    The : just adds a first arg called self.
        table.insert(outputList, '* [[' .. title .. ']]') -- 创建Wiki链接
--    Read 7 & 8 below for how self gets its value.
    end
-- 3. newObj will be an instance of class Dog.
-- 4. self = the class being instantiated. Often
--    self = Dog, but inheritance can change it.
--    newObj gets self's functions when we set both
--    newObj's metatable and self's __index to self.
-- 5. Reminder: setmetatable returns its first arg.
-- 6. The : works as in 2, but this time we expect
--    self to be an instance instead of a class.
-- 7. Same as Dog.new(Dog), so self = Dog in new().
-- 8. Same as mrDog.makeSound(mrDog); self = mrDog.


----------------------------------------------------
    return table.concat(outputList, '\n') -- 用换行符连接列表项
 
-- Inheritance example:
 
LoudDog = Dog:new()                          -- 1.
 
function LoudDog:makeSound()
  s = self.sound .. ' '                       -- 2.
  print(s .. s .. s)
end
end


seymour = LoudDog:new()                      -- 3.
return p
seymour:makeSound()  -- 'woof woof woof'      -- 4.
 
-- 1. LoudDog gets Dog's methods and variables.
-- 2. self has a 'sound' key from new(), see 3.
-- 3. Same as LoudDog.new(LoudDog), and converted to
--    Dog.new(LoudDog) as LoudDog has no 'new' key,
--    but does have __index = Dog on its metatable.
--    Result: seymour's metatable is LoudDog, and
--    LoudDog.__index = LoudDog. So seymour.key will
--    = seymour.key, LoudDog.key, Dog.key, whichever
--    table is the first with the given key.
-- 4. The 'makeSound' key is found in LoudDog; this
--    is the same as LoudDog.makeSound(seymour).
 
-- If needed, a subclass's new() is like the base's:
function LoudDog:new()
  newObj = {}
  -- set up newObj
  self.__index = self
  return setmetatable(newObj, self)
end
 
----------------------------------------------------
-- 4. Modules.
----------------------------------------------------
 
 
--[[ I'm commenting out this section so the rest of
--  this script remains runnable.
-- Suppose the file mod.lua looks like this:
local M = {}
 
local function sayMyName()
  print('Hrunkner')
end
 
function M.sayHello()
  print('Why hello there')
  sayMyName()
end
 
return M
 
-- Another file can use mod.lua's functionality:
local mod = require('mod')  -- Run the file mod.lua.
 
-- require is the standard way to include modules.
-- require acts like:    (if not cached; see below)
local mod = (function ()
  <contents of mod.lua>
end)()
-- It's like mod.lua is a function body, so that
-- locals inside mod.lua are invisible outside it.
 
-- This works because mod here = M in mod.lua:
mod.sayHello()  -- Says hello to Hrunkner.
 
-- This is wrong; sayMyName only exists in mod.lua:
mod.sayMyName()  -- error
 
-- require's return values are cached so a file is
-- run at most once, even when require'd many times.
 
-- Suppose mod2.lua contains "print('Hi!')".
local a = require('mod2')  -- Prints Hi!
local b = require('mod2')  -- Doesn't print; a=b.
 
-- dofile is like require without caching:
dofile('mod2.lua')  --> Hi!
dofile('mod2.lua')  --> Hi! (runs it again)
 
-- loadfile loads a lua file but doesn't run it yet.
f = loadfile('mod2.lua')  -- Call f() to run it.
 
-- loadstring is loadfile for strings.
g = loadstring('print(343)')  -- Returns a function.
g()  -- Prints out 343; nothing printed before now.
 
--]]
 
----------------------------------------------------
-- 5. References.
----------------------------------------------------
 
--[[
 
I was excited to learn Lua so I could make games
with the Löve 2D game engine. That's the why.
 
I started with BlackBulletIV's Lua for programmers.
Next I read the official Programming in Lua book.
That's the how.
 
It might be helpful to check out the Lua short
reference on lua-users.org.
 
The main topics not covered are standard libraries:
* string library
* table library
* math library
* io library
* os library
 
By the way, this entire file is valid Lua; save it
as learn.lua and run it with "lua learn.lua" !
 
This was first written for tylerneylon.com. It's
also available as a github gist. Tutorials for other
languages, in the same style as this one, are here:
 
https://learnxinyminutes.com/
 
Have fun with Lua!
 
--]]

2025年9月8日 (一) 10:55的最新版本

此模块的文档可以在模块:Test/doc创建 

local p = {} -- 初始化模块对象

function p.getRandomPages(frame)
    local args = frame.args
    -- 从模板参数获取分类名称和要获取的数量，若无参数则使用默认值
    local category = args['category'] or '分类名称' -- 请务必修改“分类名称”或通过参数传入
    local count = tonumber(args['count']) or 8 -- 默认获取8条

    -- 1. 检查 mw.ext.DPL 是否可用
    if type(mw.ext) ~= 'table' or type(mw.ext.DPL) ~= 'table' or type(mw.ext.DPL.dump) ~= 'function' then
        return "''错误：DPL 扩展未安装、未启用 Lua 支持或版本不兼容。'"
        -- 作为降级方案，可以在此尝试返回普通的DPL3调用wikitext，但无法在Lua内随机化
        -- return string.format('<dpl>\ncategory = %s\ncount = %d\nordermethod = title\nmode = unordered\n</dpl>', category, count)
    end

    -- 2. 使用DPL3获取分类下的页面列表
    local success, dplResult = pcall(function()
        return mw.ext.DPL.dump({
            category = category,
            namespace = '0', -- 通常为主名字空间，可根据需要调整或通过参数指定
            -- 为了性能，初次获取可以限制一个较大的数量，比如100，然后从中随机选择。如果分类页面很少，可以调小。
            count = 100,
            ordermethod = 'title', -- 初始排序方式，后续会随机化
            mode = 'none', -- 不直接输出，仅获取数据
            ignoreerrors = true,
        })
    end)

    -- 3. 处理DPL3调用可能出现的错误
    if not success then
        return "''DPL 查询执行过程中出错：' .. dplResult"
    end
    if type(dplResult) ~= 'table' or #dplResult == 0 then
        return "''分类“" .. category .. "”下未找到页面或分类不存在。'"
    end

    -- 4. 随机化处理页面列表
    -- 设置随机种子，以增加随机性。注意：在缓存期内，由于页面输出被缓存，结果仍固定。
    math.randomseed(os.time())
    -- 使用 Fisher-Yates 洗牌算法对获取到的页面数组进行随机排序
    for i = #dplResult, 2, -1 do
        local j = math.random(i)
        dplResult[i], dplResult[j] = dplResult[j], dplResult[i]
    end

    -- 5. 截取前 count 个结果
    local selectedPages = {}
    for i = 1, math.min(count, #dplResult) do
        table.insert(selectedPages, dplResult[i].title) -- 获取页面标题
        -- 如果需要更多信息，例如页面URL或命名空间，可以使用 dplResult[i].fulltext 等
    end

    -- 6. 格式化输出为Wiki文本列表（这里以无序列表为例）
    local outputList = {}
    for _, title in ipairs(selectedPages) do
        table.insert(outputList, '* [[' .. title .. ']]') -- 创建Wiki链接
    end

    return table.concat(outputList, '\n') -- 用换行符连接列表项
end

return p
检索自“https://wiki.aniinn.com/index.php?title=模块:Test&oldid=2668”