// ------------------------------------------------------------------- // // mcachedb_update.fs // // Aug/06/2011 // // ------------------------------------------------------------------- open System open System.Text open Microsoft.FSharp.Core open System.IO open Memcached.ClientLibrary open mcached_manipulate // ------------------------------------------------------------------- [] let main (args : string[] ) = printfn "*** 開始 ***" let id_in = args.[0] let population_in = int args.[1] printfn "%s" id_in printfn "%d" population_in let serverlist = [|"127.0.0.1:21201" |] let pool = SockIOPool.GetInstance() pool.SetServers(serverlist) pool.Initialize() let mc = new MemcachedClient() mcache_manipulate.update_proc (mc,id_in,population_in) let keys = [|"t1521";"t1522";"t1523";"t1524";"t1525"; "t1526";"t1527";"t1528";"t1529";"t1530";"t1531";"t1532";|] display_proc (mc,keys) pool.Shutdown() printfn "*** 終了 ***" 0 // -------------------------------------------------------------------