54. (Interface) TCL

vi pgtcl.tcl

package require Pgtcl proc connectDB { {host "127.0.0.1"} {port "5432"} {db "postgres"} {user "postgres"} {password "1234"} } { set conn [pg_connect $db -host $host -port $port -user $user -password $password] set conninfo [pg_dbinfo status $conn] puts $conninfo return $conn } proc getDBs { conn query } { # datnames is the list to be result set res [pg_exec $conn "$query"] set ntups [pg_result $res -numTuples] for {set i 0} {$i < $ntups} {incr i} { lappend datnames [pg_result $res -getTuple $i] } pg_result $res -clear pg_disconnect $conn return $datnames } puts "host 입력" gets stdin host puts "port 입력" gets stdin port puts "db명 입력" gets stdin db puts "user명 입력" gets stdin user puts "password 입력" gets stdin password set conn [connectDB $host $port $db $user $password] puts "query 입력" gets stdin query puts [getDBs $conn $query]

vi tdbc.tcl

package require tdbc::postgres puts "host 입력" gets stdin host puts "port 입력" gets stdin port puts "db명 입력" gets stdin db puts "user명 입력" gets stdin user puts "password 입력" gets stdin password tdbc::postgres::connection create db -host $host -port $port -user $user -password $password -db $db puts "query 입력" gets stdin query db foreach rec $query { puts $rec } db close

vi ~/.bash_profile

alias tclsh='/opensql/interface/tcl/tcl-8.6.12/bin/tclsh8.6'

tclsh pgtcl.tcl tclsh tdbc.tcl

host 입력 127.0.0.1 port 입력 5432 db명 입력 postgres user명 입력 postgres password 입력 1234 connection_ok query 입력 select * from one limit 5 {1 Kiah Beales kbeales0@nifty.com Female 140.139.182.23 {{"name":"추다진","age":"1","Product":{"pens":1495,"notes":2328}}} 69b40fb60ccb4ad4f781e48130cf6734} {2 Daryle Armall darmall1@umich.edu Male 131.227.113.151 {{"name":"백효리","age":"2","Product":{"pens":1697,"notes":2404}}} 69ae4a5ea38f1f4b4f768390f49a829b} {3 Gare Vacher gvacher2@angelfire.com Male 130.229.128.29 {{"name":"신채예","age":"3","Product":{"pens":2771,"notes":123}}} 13c31690dbaa4ff3bab5ab202a714a50} {4 Elissa Ianilli eianilli3@macromedia.com Female 167.226.206.250 {{"name":"지하소","age":"4","Product":{"pens":1415,"notes":2504}}} 703b975fc6e3d952ff49bda3e75d0492} {5 Danit Romi dromi4@dagondesign.com Female 148.169.97.249 {{"name":"나조승","age":"5","Product":{"pens":1932,"notes":683}}} d650638f5f8ef81903f28cff1049a4ef}

host 입력 127.0.0.1 port 입력 5432 db명 입력 postgres user명 입력 postgres password 입력 1234 query 입력 select * from one limit 5 id 1 first_name Kiah last_name Beales email kbeales0@nifty.com gender Female ip_address 140.139.182.23 info {{"name":"추다진","age":"1","Product":{"pens":1495,"notes":2328}}} en_first_name 69b40fb60ccb4ad4f781e48130cf6734 id 2 first_name Daryle last_name Armall email darmall1@umich.edu gender Male ip_address 131.227.113.151 info {{"name":"백효리","age":"2","Product":{"pens":1697,"notes":2404}}} en_first_name 69ae4a5ea38f1f4b4f768390f49a829b id 3 first_name Gare last_name Vacher email gvacher2@angelfire.com gender Male ip_address 130.229.128.29 info {{"name":"신채예","age":"3","Product":{"pens":2771,"notes":123}}} en_first_name 13c31690dbaa4ff3bab5ab202a714a50 id 4 first_name Elissa last_name Ianilli email eianilli3@macromedia.com gender Female ip_address 167.226.206.250 info {{"name":"지하소","age":"4","Product":{"pens":1415,"notes":2504}}} en_first_name 703b975fc6e3d952ff49bda3e75d0492 id 5 first_name Danit last_name Romi email dromi4@dagondesign.com gender Female ip_address 148.169.97.249 info {{"name":"나조승","age":"5","Product":{"pens":1932,"notes":683}}} en_first_name d650638f5f8ef81903f28cff1049a4ef