4.2. 예

루틴 사용 방법의 작은 예는 다음과 같습니다.

# getdbs :
# 주어진 호스트 및 포트 번호에서 모든 데이터베이스의 이름을 얻습니다.
# 기본값은 LocalHost 및 Port 5432입니다.
# 알파벳 순서로 반환하십시오
Proc getDbs host "localhost" 포트 "5432" 
    # datnames는 결과가 될 목록입니다
    conn 세트 [pg_connect template1 -host $ host -port $ port]
    SET RES [PG_EXEC $ CONN ""PG_DATABASE ORDER에서 DATNAME ORDER에서 DATNAME SELECT SELECT "
    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를 반환합니다