MyException - 我的异常网
当前位置:我的异常网» 互联网 » redis lua 库累积

redis lua 库累积

www.MyException.Cn  网友分享于:2013-10-27  浏览:0次
redis lua 库积累
-- lua脚本要求所有的功能,不依赖内部或外部的状态
-- cd /root/workspace/java
-- /usr/local/redis/bin/redis-cli -p 6379 --ldb --eval api.lua r , PRE
-- /usr/local/redis/bin/redis-server 6379.conf
-- /usr/local/redis/bin/redis-cli shutdown

local keys = KEYS
local args = ARGV
local Wtm = {}      -- Wtm library

Wtm.serialize = function(obj)
    local lua = ""
    local t = type(obj)
    if t == "number" then
        lua = lua .. obj
    elseif t == "boolean" then
        lua = lua .. tostring(obj)
    elseif t == "string" then
        lua = lua .. string.format("%q", obj)
    elseif t == "table" then
        lua = lua .. "{\n"
    for k, v in pairs(obj) do
        lua = lua .. "[" .. serialize(k) .. "]=" .. serialize(v) .. ",\n"
    end
    local metatable = getmetatable(obj)
        if metatable ~= nil and type(metatable.__index) == "table" then
        for k, v in pairs(metatable.__index) do
            lua = lua .. "[" .. serialize(k) .. "]=" .. serialize(v) .. ",\n"
        end
    end
        lua = lua .. "}"
    elseif t == "nil" then
        return nil
    else
        error("can not serialize a " .. t .. " type.")
    end
    return lua
end

Wtm.log = function ( v )
	redis.log(redis.LOG_WARNING, serialize(v))
end

--usage: redis-cli --eval api.lua k1 , PRE
Wtm.uuid = function (pid)
	-- pid 机器id占4位,左移16位
	local idxNum = redis.call("INCR", "ID_IDX") % 65535

	--获取当前时间戳(秒),左移20位
	local sec = redis.call("TIME")[1]
	return sec*1048576+pid*65536+idxNum
end

Wtm.split = function (str)
	local splitlist = {}  
	string.gsub(str, '[^%s]+', function(w) table.insert(splitlist, w) end ) 
	return splitlist
end

Wtm.callstr = function (str)
	local x = Wtm.split(str)
	local ret = redis.call(unpack(x))
	return ret
end

Wtm.callstrarr = function (arr)
	local retarr = {}
	local fd = ''
	for k,v in pairs(arr) do
		redis.debug(v)
		-- redis.breakpoint()
		fd = string.find(v, "#")
		-- redis.debug(fd)
		if (fd == nil) then
			-- redis.debug('ok run')
			local ret = Wtm.callstr(v)
			table.insert(retarr, ret)
		end
	end
	
	return retarr
end

Wtm.runlstr = function (longstr )
	local splitlist = {}  
	-- 先切分成数组
	string.gsub(longstr, '[^\r\n\t]+', function(w) table.insert(splitlist, w) end ) 
	local ret = Wtm.callstrarr(splitlist)

	return ret
end

Wtm.scanall = function ()
	local retarr = {}
	local ret = ''
	local index = '0'	
	while(true)
	do 
		ret = redis.call('scan',index)
		redis.debug(ret[1])
		redis.debug(ret[1] == '0')
		redis.debug(retarr)
		table.insert(retarr, ret[2])

		if (ret[1] == '0') then break end
		redis.breakpoint()
		index = ret[1]
	end
	-- redis.debug(retarr)
	return retarr
end

Wtm.limit_rate = function(ip)
	local ret = 0  --  正常

	local current = redis.call("incr", ip)
	if tonumber(current) == 1 then
    	redis.call("expire", ip, 10) -- 设置超时时间10s
	end
	
	if tonumber(current) > 10 then
    	ret = 1
	end
	-- redis.debug(redis.call("get", ip))
	return ret
end

local function test_key(prefix)
	-- 种子必须要自己从外部设置,value要随机可以使用redis命令
	-- math.randomseed(tostring(os.time()):reverse():sub(1, 7))
	redis.call('flushall')
	prefix = args[1]
	local ret = {}
	for i=1,10 do
		redis.call('set', prefix .. i, math.random(1,100) +2)
	end

	redis.call('del', prefix .. 2)
	redis.call('expire', prefix .. 3, 30)

	for i=1,10 do
		ret[i] = redis.call('get', prefix .. i)
	end

	redis.debug(ret,1)
	if redis.call('exists', prefix .. 3) then
		redis.debug('ok')
	end

	local status = redis.call('ttl', prefix .. 3)

	-- 排序
	local cmds = {
		'rpush numbers 1 3 5 7 9',
		'rpush numbers 2 4 6 8 10',
		'SORT numbers STORE sorted-numbers',
		'lrange sorted-numbers 0 -1'
	}
	local retu = Wtm.callstrarr(cmds)
	redis.debug(retu)
	
	-- redis.breakpoint()
	redis.call('flushall')
	-- callstr('HMSET user_info_1 name admin level 9999')
	local cmds = {
		'HMSET user_info_1 name admin level 9999',
		'HMSET user_info_2 name jack level 10',
		'HMSET user_info_3 name peter level 25',
		'HMSET user_info_4 name mary level 70',
		'SORT uid BY user_info_*->level',
		'SORT uid BY user_info_*->level GET user_info_*->name',
		'hgetall user_info_1',
		'hgetall user_info_4'
	}

	local retu = Wtm.callstrarr(cmds)
	redis.debug(retu)
	-- redis.breakpoint()

	cmds = [[
		HMSET user_info_1 name admin level 0.01
		HMSET user_info_2 name jack level 0.10
		HMSET user_info_3 name peter level 0.25
		keys user_info_*
		hgetall user_info_4
		 hgetall user_info_1
		 expire user_info_1 1000
		 ttl user_info_1
		 ttl user_info_4
		 ttl user_info_0
		]]

	ret = Wtm.runlstr(cmds)
	redis.debug(ret)
	ret = Wtm.scanall()

	return ret
end

local function test_str()
	local ret = ''
	for i=1,100 do
		ret = Wtm.limit_rate('10.88.147.26')
		redis.debug(ret)
	end

	local cmds = [[
		#append拼接字符串
		append serials 0001
		append serials 0002
		append serials 0003
		GETRANGE serials 0 3
		GETRANGE serials 4 7
		GETRANGE serials 8 11
		
		#bit计数
		SETBIT user1 0 1 
		SETBIT user1 4 1
		BITCOUNT user1

		# bit按位操作
		SETBIT bits-1 0 1
		SETBIT bits-1 3 1 
		SETBIT bits-2 0 1
		SETBIT bits-2 1 1
		SETBIT bits-2 3 1
		BITOP AND and-result bits-1 bits-2
		GETBIT and-result 0
		GETBIT and-result 1
		GETBIT and-result 2
		GETBIT and-result 3

		# 递减
		GETSET failure_times 10
		DECR failure_times
		DECRBY failure_times 20
		
		SET greeting hello
		SETRANGE greeting 4 "Redis"
		STRLEN greeting
		MSET date 2012.3.30 time 11:00a.m. weather sunny
		MGET date time weather

		MSETNX rmdbs MySQL nosql MongoDB key-value-store redis
	]]

	ret = Wtm.runlstr(cmds)
	redis.debug(ret)
	
	redis.breakpoint()
	return ret
end

local function test_hash()
	local ret = ''
	local cmds = [[
		HSET website google www.g.cn
		HSET website baidu www.baidu.com
		HSETNX website qq www.qq.com
		HGET website google
		HGETALL website
		HEXISTS website google
		HDEL website google
		HLEN website
		HKEYS website
		HVALS website

		HMSET pet dog doudou cat nounou
		HMGET pet dog cat fake_pet
		HINCRBY counter page_view 200
		HGET counter page_view
		# e是10的指数
		HSET mykey field 5.0e3
		HINCRBYFLOAT mykey field 2.0e-2
		HGET mykey field
	]]

	ret = Wtm.runlstr(cmds)
	redis.debug(ret)
	
	redis.breakpoint()
	return ret
end

local function test_list()
	local ret = ''
	local cmds = [[
		# 左边为前
		# lpush lpop 栈, rpush rpop是队列,  lset linsert lrem 数组
		# index range  读
		# ltrim llen RPOPLPUSH (出队+入栈)
		LPUSH mylist a b c
		LINDEX mylist 0
		LPUSHX mylist hello
		LINSERT mylist BEFORE hello There
		LPOP mylist
		LLEN mylist
		LINDEX mylist 0
		LRANGE mylist 0 -1		
		RPUSH queue a a b c a
		LRANGE queue 0 -1
		LINDEX queue -1
		LREM queue 0 a 
		LRANGE queue 0 -1

		# trim RPOPLPUSH
		LTRIM queue 1 -1
		LRANGE queue 0 -1 
		LPUSH stack 1 2 3 4 5
		RPUSH q1  a b c d e
		RPOPLPUSH q1 stack
		lrange stack 0 -1
		lrange q1 0 -1
	]]

	ret = Wtm.runlstr(cmds)
	redis.debug(ret)
	
	redis.breakpoint()
	return ret
end

local function test_set()
	local ret = ''
	local cmds = [[
		# add rem pop move 
		# card members randmember ismember
		# inter union diff
		
		# 为了保证原子性,交并补的操作需要在前
		SADD A a b c d
		SADD B b c 11 22
		# 第一个参数是操作的结果
		SDIFFSTORE DIFF A B
		SISMEMBER DIFF a
		SISMEMBER DIFF 11

		# 交集
		SINTERSTORE INTER A B 
		SISMEMBER INTER b
		# 并集
		SUNIONSTORE UNION A B 
		SMEMBERS UNION
		
		SMOVE A B a
		SMEMBERS A
		SMEMBERS B
		SADD bbs tianya.cn groups.google.com
		SREM bbs tianya.cn
		SMEMBERS bbs
		SADD tool pc printer phone
		SCARD tool
		SMEMBERS tool
		SPOP tool
		SMEMBERS tool
		SRANDMEMBER tool
		SRANDMEMBER tool
	]]

	ret = Wtm.runlstr(cmds)
	redis.debug(ret)
	
	redis.breakpoint()
	return ret
end
local function test_zset()
	local ret = ''
	local cmds = [[
		# add rem remrangebyrank
		# score相关:(rev)rangebyscore incrby count score
		# card (rev)range (rev)rank
		# interstore unionstores
		
		ZADD page_rank 9 baidu.com  10 google.com 8 bing.com
		ZREM page_rank google.com
		ZCARD page_rank
		zscore page_rank bing.com
		ZRANGE page_rank 0 -1 WITHSCORES
		ZINCRBY page_rank 2 baidu.com
		ZCOUNT page_rank -1 5000 

		ZADD salary 2500 jack 5000 tom 12000 peter
		zrangebyscore salary -inf +inf WITHSCORES
		zrangebyscore salary (2500 +inf WITHSCORES
		zrank salary tom
		zrevrank salary tom
		zrevrange salary 0 -1 WITHSCORES
		# 闭区间
		zremrangebyrank salary 0 1 
		
		# zunionstore
		zadd programmer 2000 peter 3500 jack 5000 tom
		ZRANGE programmer 0 -1 WITHSCORES
		zadd manager 2000 herry 3500 mary 4000 bob
		zrange manager 0 -1 WITHSCORES
		zunionstore salary 2 programmer manager 
		zrange salary 0 -1 withscores

		# zinterstore
		ZADD mid_test 70 LiLei 70 HanMeimei 99.5 Tom 11 one
		ZADD fin_test 88 LiLei 75 HanMeimei 99.5 Tom
		zinterstore sum_point 2 mid_test fin_test
		zrange sum_point 0 -1 withscores
		
	]]

	ret = Wtm.runlstr(cmds)
	redis.debug(ret)
	
	redis.breakpoint()
	return ret
end

local function test_other()
	local ret = ''
	local cmds = [[
		#MONITOR
		# SHUTDOWN
		BGREWRITEAOF
		DBSIZE
		LASTSAVE
		client list
		
		config get *
		CONFIG REWRITE
		CONFIG SET slowlog-log-slower-than 1000
		CONFIG SET slowlog-max-len 1000
		
		info all
		SLOWLOG GET
		SLOWLOG LEN
		SLOWLOG RESET

		SLAVEOF 127.0.0.1 6379	
	]]

	ret = Wtm.runlstr(cmds)
	redis.debug(ret)
	
	redis.breakpoint()
	return ret
end

-- redis.status_reply('status_reply')
-- redis.error_reply('error_reply')

local ret = test_zset()
-- 通过return 自动实现类型转换
return ret

-- ./redis-cli --ldb --eval /tmp/script.lua mykey somekey , arg1 arg2
-- s p l r e

 

文章评论

我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
程序员必看的十大电影
程序员必看的十大电影
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
漫画:程序员的工作
漫画:程序员的工作
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
Google伦敦新总部 犹如星级庄园
Google伦敦新总部 犹如星级庄园
一个程序员的时间管理
一个程序员的时间管理
程序员都该阅读的书
程序员都该阅读的书
每天工作4小时的程序员
每天工作4小时的程序员
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
Java程序员必看电影
Java程序员必看电影
十大编程算法助程序员走上高手之路
十大编程算法助程序员走上高手之路
中美印日四国程序员比较
中美印日四国程序员比较
做程序猿的老婆应该注意的一些事情
做程序猿的老婆应该注意的一些事情
 程序员的样子
程序员的样子
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
那些性感的让人尖叫的程序员
那些性感的让人尖叫的程序员
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
如何成为一名黑客
如何成为一名黑客
2013年美国开发者薪资调查报告
2013年美国开发者薪资调查报告
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
10个调试和排错的小建议
10个调试和排错的小建议
我的丈夫是个程序员
我的丈夫是个程序员
那些争议最大的编程观点
那些争议最大的编程观点
如何区分一个程序员是“老手“还是“新手“?
如何区分一个程序员是“老手“还是“新手“?
编程语言是女人
编程语言是女人
程序员的鄙视链
程序员的鄙视链
老程序员的下场
老程序员的下场
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
老美怎么看待阿里赴美上市
老美怎么看待阿里赴美上市
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
代码女神横空出世
代码女神横空出世
为什么程序员都是夜猫子
为什么程序员都是夜猫子
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
我是如何打败拖延症的
我是如何打败拖延症的
2013年中国软件开发者薪资调查报告
2013年中国软件开发者薪资调查报告
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
程序员眼里IE浏览器是什么样的
程序员眼里IE浏览器是什么样的
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
总结2014中国互联网十大段子
总结2014中国互联网十大段子
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有