switch-statement - tclsh - getopt 和 switch-case

Question

我参考这里写我getopt的处理输入选项。

使用以下推荐运行脚本

$ tclsh t2.tcl -O /dir/o -B /dir/b  

期望的结果：

/dir/o, /dir/o, /dir/b
Odir is /dir/o
/dir/o, /dir/o, /dir/b
Bdir is /dir/b 

但我得到了这个不正确的结果

/dir/o, /dir/o, /dir/b
err...
/dir/b, /dir/o, /dir/b
err...

是的，$arg(${i}), $arg(O), $arg(B)这些价值似乎没有问题，

但不能匹配大小写条件。

我的代码有什么问题？

---

完整代码

# filenat2.tcl
package require cmdline

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

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

set requiredParameters {O B}
foreach i ${requiredParameters} {
  if {$arg(${i}) == ""} {
    error "Missing required parameter: -${i}"
  } else {
    puts "$arg(${i}), $arg(O), $arg(B)" #check
    switch $arg(${i}) {
      $arg(O) {
        puts "Odir is $args(O)"
      }
      $arg(B) {
        puts "Bdir is $args(B)"
      }
      default {
        puts "err..."
      }
    }
  }
}