tclsh中cmdline::getoptions结合switch参数匹配异常如何解决

问题现象 #

编写Tcl代码预期实现：输入命令行参数匹配对应选项时，输出选项对应内容，实际运行switch分支未命中，错误进入default分支。

执行命令 #

$ tclsh t.tcl -B bb -O oo

实际输出 #

bb
bb
oo
--------
Non
--------
oo
bb
oo
--------
Non
--------

从输出可确认：参数读取、变量替换结果均正确，仅switch逻辑未命中预期分支。

问题复现代码 #

package require cmdline

set parameters {
  {B.arg "" "Build Dir"}
  {O.arg "" "Output Dir"}
}

array set arg [cmdline::getoptions argv ${parameters}]

set requiredParameters {B O } 
foreach iter ${requiredParameters} {
  if {$arg(${iter}) == ""} {
    error "Missing required parameter: -${iter}"
  } else {
    puts $arg(${iter})
    puts $arg(B)
    puts $arg(O)
    puts "--------"
    switch $arg(${iter}) {
      $arg(B) {
        puts $arg(${iter})
      }   
      $arg(O) {
        puts $arg(${iter})
      }   
      default {
        puts "Non"
      }   
    }   
    puts "--------"
  }
}

根本原因 #

Tcl的switch命令直接用大括号包裹匹配分支时，大括号内部的内容不会做变量替换，解释器会把$arg(B)、$arg(O)当成固定字符串和待匹配值比较，自然无法匹配到实际传入的bb、oo，最终进入default分支。

解决方案 #

两种修复方式可选：

• 方案1：将switch分支用list命令包裹，让分支里的变量先完成替换再执行匹配逻辑，修改后的switch代码如下：

switch $arg(${iter}) [list \
  $arg(B) {
    puts $arg(${iter})
  } \
  $arg(O) {
    puts $arg(${iter})
  } \
  default {
    puts "Non"
  } \
]

• 方案2：简化逻辑，当前循环遍历的是参数名B、O，直接匹配参数名即可，不需要绕层匹配参数值，逻辑更清晰不易出错：

switch $iter {
  B {
    puts $arg(B)
  }
  O {
    puts $arg(O)
  }
  default {
    puts "Non"
  }
}

内容的提问来源于stack exchange，提问作者curlywei