用于在TCL中解析参数的包

Question

有没有人知道tcl的标准包能够轻松解析输入参数？还是准备好了？(我只有3个标志,但一般情况下更好).

Answer 1

该文档包含一个示例.这是一个简单的例子:

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个部分:
  • 标志(例如调试)
  • 默认值(例如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