tcl - 如何在 tcl 的命令行上指定开关？

Question

如果我有一个期望脚本并且我想根据要求执行代码的某些部分。假设我的代码中有一些程序，如下所示

proc ABLOCK { } {

}

proc BBLOCK { } {

}

proc CBLOCK { } {

}

然后在执行脚本时，如果我可以使用一些开关，例如。

./script -A ABLOCK #executes only ABLOCK
./script -A ABLOCK -B BBLOCK #executes ABLOCK and BBLOCK
./script -V  # just an option for say verbose output

其中 ABLOCK,BBLOCK,CBLOCK 可以是参数列表argv

Answer 1

为什么不：

foreach arg $argv {
    $arg
}

并将其运行为./script ABLOCK BLOCK CBLOCK

有人也可以通过exit，如果您不想要，请检查它是否有效：

foreach arg $argv {
    if {$arg in {ABLOCK BLOCK CBLOCK}} {
        $arg
    } else {
        # What else?
    }
}

对于开关，您可以使用相同的（如果它们不需要参数）：

proc -V {} {
    set ::verbose 1
    # Enable some other output
}

如果您需要开关的参数，您可以执行以下操作：

set myargs $argv
while {[llength $myargs]} {
    set myargs [lassign $myargs arg]
    if {[string index $arg 0] eq {-}} {
       # Option
       if {[string index $arg 1] eq {-}} {
           # Long options
           switch -exact -- [string range $arg 2 end]
               verbose {set ::verbose 1}
               logfile {set myargs [lassign $myargs ::logfile]}
           }
       } else {
           foreach opt [split [string range $arg 1 end] {}] {
               switch -exact $opt {
                   V {set ::verbose 1}
                   l {set myargs [lassign $myargs ::logfile]}
               }
           }
       }
    } else {
        $arg
    }
}