Tcl: MD5

使用者在命令列輸入一個字串，然後程式計算字串 MD5 的值並且輸出：

#!/usr/bin/env tclsh
if {$argc >= 1} {
    set countString [lindex $argv 0]
} elseif {$argc == 0} {
    puts "Please input a string"
    exit
}

package require md5
puts "String: $countString"
puts "Result: [md5::md5 -hex $countString]"