string reverse

 只是用來測試 string reverse 的 script，用來反轉使用者輸入的數字的程式：

#!/usr/bin/tclsh

puts -nonewline "Please input a number: "
flush stdout
gets stdin number
set positive 1
if {$number < 0} {
    set positive 0
    set number [expr $number * -1]
}

set number [string reverse $number]
if {$positive > 0} {
    puts $number
} else {
    set number [expr $number * -1]
    puts $number
}

TclTLS 1.7.22

 TclTLS 釋出了一個新的版本，1.7.22。

版本更新：
add "version" element with SSL/TLS protocol version to tls::status

已經可以 在網站找到下載的檔案了。

Remove .*history* file

 最近我在試著使用 zsh 作為平常使用的 shell（還在測試中），所以試寫了一個會移除 .*history* 檔案的 zsh shell script：

#!/usr/bin/env zsh

pushd $(pwd)
cd $HOME
for file in $(ls .*history*); do
    rm $file && touch $file
done
popd

那麼如果用 Tcl 寫呢？程式應該會是這個樣子：

#!/usr/bin/env tclsh

set currdir [pwd]
cd $::env(HOME)
set files [glob -nocomplain -type f .*history*]
foreach filename $files {
    file delete -force $filename
    if {[file exists $filename]==0} {
        close [open $filename a]
    }
}
cd $currdir