#! /usr/bin/gosh ;; -*- coding: utf-8 -*- ;; ---------------------------------------------------------------------- ;; mcached_delete.scm ;; ;; Oct/04/2010 ;; ;; ---------------------------------------------------------------------- (use memcache) ;; ---------------------------------------------------------------------- (define (main args) (define id_in (car (cdr args))) (define conn (memcache-connect "localhost" 11211)) (print "*** 開始 ***") (print id_in) (print (delete conn id_in)) ;; (print "*** 終了 ***") 0 ) ;; ----------------------------------------------------------------------