Tcl: file size

列出目前目錄的檔案與其檔案大小：

#!/usr/bin/env tclsh

foreach filename [glob -nocomplain -type f *] {
    puts "$filename: [file size $filename] bytes"
}