言簡意賅,就是要用 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}
就這樣。