29.4. 젠 토토 프로그램

예 29-1.pgtcl젠 토토 프로그램

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

    pg_젠 토토ult $젠 토토 -클리어
    pg_disconnect $콘
    $datnames 반환