PostgreSQL 7.4.3 Documentation | ||||
---|---|---|---|---|
Prev | Fast Backward | Chapter 29. pgtcl - Tcl Binding Library | Fast Forward | Next |
Example 29-1 shows a small example of how to use the pgtcl commands.
Example 29-1. pgtcl Example Program
# getDBs : # get the names of all the databases at a given host and port number # with the defaults being the localhost and port 5432 # return them in alphabetical order proc getDBs { {host "localhost"} {port "5432"} } { # datnames is the list to be result set conn [pg_connect template1 -host $host -port $port] set res [pg_exec $conn "SELECT datname FROM pg_database ORDER BY datname;"] 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 }