#! /usr/bin/sbcl --script ; ------------------------------------------------------------------- ; ; redis_read.lisp ; ; Jan/10/2014 ; ------------------------------------------------------------------- (require :asdf) (require :asdf-install) (pushnew "/usr/share/common-lisp/source/usocket/" asdf:*central-registry* :test #'equal) (pushnew "/usr/share/common-lisp/source/cl-json_0.5.0/" asdf:*central-registry* :test #'equal) (require :usocket) (require :cl-json) ; ------------------------------------------------------------------- (load "/var/www/data_base/common/common_lisp/redis_manipulate.lisp") (load "/var/www/data_base/common/common_lisp/mcached_manipulate.lisp") ; ------------------------------------------------------------------- (format t "*** 開始 ***~%") (defvar keys) (setf keys '("t1851" "t1852" "t1853" "t1854" "t1855" "t1856" "t1857" "t1858" "t1859")) (usocket:with-client-socket (socket stream "host_dbase" 6379) (mapcar (lambda (x) (redis_socket_read_proc stream x)) keys) ) (format t "*** 終了 ***~%") ; -------------------------------------------------------------------