该文档包括一个示例。这是一个简单的示例：

package require cmdline

set parameters {
    {server.arg ""   "Which server to search"}
    {debug           "Turn on debugging, default=off"}
}

set usage "- A simple script to demo cmdline parsing"
array set options [cmdline::getoptions ::argv $parameters $usage]
parray options

样品运行：

$ tclsh simple.tcl 
options(debug)  = 0
options(server) = 

$ tclsh simple.tcl -server google.com
options(debug)  = 0
options(server) = google.com

$ tclsh simple.tcl -server google.com -debug
options(debug)  = 1
options(server) = google.com

$ tclsh simple.tcl -help
simple - A simple script to demo cmdline parsing
 -server value        Which server to search <>
 -debug               Turn on debugging, default=off
 -help                Print this message
 -?                   Print this message

    while executing
"error [usage $optlist $usage]"
    (procedure "cmdline::getoptions" line 15)
    invoked from within
"cmdline::getoptions ::argv $parameters $usage"
    invoked from within
"array set options [cmdline::getoptions ::argv $parameters $usage]"
    (file "simple.tcl" line 11)

讨论

• 与大多数Linux实用程序不同，TCL在命令行选项中使用单破折号而不是双破折号
• 当标志以.arg结尾时，则该标志期望后面跟随一个参数，例如在server.arg的情况下
• 在调试标志不会结束.arg，因此它并不期望任何参数
• 用户通过列表列表定义命令行参数。每个子列表包含2或3部分：
  • 标志（例如debug）
  • 默认值（例如0），仅当参数带有参数时（标志以结束.arg）。
  • 和帮助信息
• 使用-help或调用用法/帮助-?，但是输出效果不佳，请参阅上一个示例运行。

更新：帮助/用法

我一直在思考用户调用帮助时的消息输出（请参阅上面运行的最后一个示例）。为了解决这个问题，你需要自己捕获错误：

set usage "- A simple script to demo cmdline parsing"
if {[catch {array set options [cmdline::getoptions ::argv $parameters $usage]}]} {
    puts [cmdline::usage $parameters $usage]
} else {
    parray options
}

样品运行2：

$ tclsh simple.tcl -?
simple - A simple script to demo cmdline parsing
 -server value        Which server to search <>
 -debug               Turn on debugging, default=off
 -help                Print this message
 -?                   Print this message