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