kèo bóng đá phápví dụ

Đây là một ví dụ nhỏ về cách sử dụkèo bóng đá pháp các thói quen:

# getdbs:
# Nhận tên của tất cả các cơ sở dữ kèo bóng đá pháp 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ừ PG_DATABASE ĐẶT HÀNG BY 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