29.4. kèo chấp bóng đá hôm nay ví dụ

Ví dụ 29-1.PGTCLkèo chấp bóng đá hôm nay ví dụ

# getdbs:
# Nhận tên của tất cả các cơ sở dữ kèo chấp bóng đá hôm nay tại một máy chủ và số cổng nhất định
# với mặc định là localhost và port 5432
# Trả lại chúng theo thứ tự bảng chữ cái
Proc getdbs host "localhost" port "5432" 
    # Datnames là danh sách sẽ là kết quả
    Đặt Conn [pg_connect template1 -host $ host -port $ port]
    Đặt res [PG_EXEC $ Conn "Chọn DatName từ thứ tự pg_database bằng datname;"]
    Đặt NTUPS [PG_RESULT $ RES -NUMTUMPLES]
    cho set i 0 $ i <$ ntups inc I 
        Lappend Datnames [pg_result $ res -gettuple $ i]

    pg_result $ res -clear
    PG_DISCONNECT $ Conn
    Trả về $ Datnames