#! /usr/bin/runghc -- ----------------------------------------------------------------- -- redis_delete.hs -- -- Dec/26/2014 -- -- ----------------------------------------------------------------- import System.Environment import System.IO import Network -- ----------------------------------------------------------------- main :: IO () main = do putStrLn "*** 開始 ***" -- args <- getArgs let key_in = head args let command = "del " ++ key_in ++ "\r\n" let hostname = "host_dbase" putStr (key_in ++ "\n") putStr (command ++ "\n") -- withSocketsDo $ do hSetBuffering stdout NoBuffering h <- connectTo hostname (PortNumber 6379) hSetBuffering h LineBuffering hPutStrLn h command hGetLine h >>= putStrLn hClose h -- putStrLn "*** 終了***" -- -- -----------------------------------------------------------------