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}

就這樣。