29.4. 예제 젠 토토

예 29-1.pgtcl예제 젠 토토

# getdbs :
# 주어진 호스트 및 포트 번호에서 모든 데이터베이스의 이름을 얻습니다.
# 기본값은 LocalHost 및 Port 5432입니다.
# 알파벳 순서로 반환하십시오
Proc getDbs host "localhost" 포트 "5432" 
    # datnames는 결과가 될 목록입니다
    conn 세트 [pg_connect template1 -host $ host -port $ port]
    SET RES [PG_EXEC $ CONN "DATNAME로 PG_DATABASE ORDER에서 DatName을 선택하십시오."]
    set ntups [pg_result $ res -numtuples]
    for set i 0 $ i <$ ntups incr i 
        lapend datnames [pg_result $ res-gettuple $ i]

    pg_result $ res -clear
    pg_disconnect $ conn
    $ $ datnames를 반환합니다