QueryPeripherals.lua

function query_peripherals()
    output = ""
    for _, perph_name in pairs(peripheral.getNames()) do
        perph_type = peripheral.getType(perph_name)
        methods = peripheral.getMethods(perph_name)
        output = output ..
            "[" .. perph_type .. "]\t" .. perph_name .. "\n" ..
            textutils.serialise(methods) .. "\n"
    end
    return output
end

function main()
    if not arg[1] then
        print("Usage:\n"
            .. "arg[1] should be an output file\n")
        return
    end

    output_file = fs.open(arg[1], "w")
    output_file.write(query_peripherals())
    output_file.close()
end

main()