tclsh 連 Orace database

言簡意賅,就是要用 tcl 連上 Orale Database,難度極低,還來不及出錯就完成了。

Oratcl 下載 source 來安裝,rpm 不能用 (除非你的系統是 32bit),解開來:

cd Oratcl4.6/ ./configure --prefix=/usr/lib make sudo make install

就好了。

記得指定好 ORACLE_HOME,其他環境變數順便 :

export ORACLE_HOME=/usr/lib/oracle/19.5/client64 export NLS_LANG="TRADITIONAL CHINESE_TAIWAN.AL32UTF8" export NLS_DATE_FORMAT="YYYY-MM-DD HH24:MI:SS"

然後程式:

package require Oratcl package require -exact Oratcl 4.6 set lda [oralogon name/password@localhost/XEPDB1] set sth [oraopen $lda] set sql {select sysdate from dual} oraparse $sth $sql oraexec $sth orafetch $sth -datavar row puts $row

執行結果:

{2022-06-05 13:30:08}

就這樣。