#! /usr/bin/tclsh # # webdav_read.tcl # # Jul/08/2014 # # --------------------------------------------------------------- package require TclCurl package require json # source /var/www/data_base/common/tcl_common/text_manipulate.tcl source /var/www/data_base/common/tcl_common/http_get.tcl # --------------------------------------------------------------- puts "*** 開始 ***" set url_in http://host_dbase:3004/city/tokyo.json # set str_json [http_get $url_in] set str_json [encoding convertfrom utf-8 $str_json] # set dict_aa [json::json2dict $str_json] # dict_display_proc $dict_aa # puts "*** 終了 ***" # ---------------------------------------------------------------