4.2. 예

다음은 루틴을 사용하는 방법에 대한 작은 예입니다:

# getDBs:
# 주어진 호스트와 포트 번호에 있는 모든 데이터베이스의 이름을 가져옵니다.
# 기본값은 localhost 및 포트 5432입니다.
# 알파벳순으로 반환
proc getDBs  호스트 "localhost" 포트 "5432"  
    # datnames는 결과가 될 목록입니다.
    conn 설정 [pg_connect template1 -host $host -port $port]
    set res [pg_exec $conn "SELECT datname FROM pg_database ORDER BY datname"]
    ntups 설정 [pg_result $res -numTuples]
    for set i 0 $i < $ntups incr i 
        랩펜드 데이터 이름 [pg_result $res -getTuple $i]

    pg_result $res -클리어
    pg_disconnect $콘
    $datnames 반환