Tcl:if语句中的多个条件

Question

只是尝试在脚本中进行一些基本检查...如果$argc不是1或2 则产生错误.

我试过了:

if { ( $argc != 1 ) || ( $argc != 2 ) } {
        puts "ERROR: \$argc should be either 1 or 2.\n"; exit 1
}

和

if { ( $argc != 1 || $argc != 2 ) } {
        puts "ERROR: \$argc should be either 1 or 2.\n"; exit 1
}

等等

但无法使用任何括号/括号组合使其工作.

任何帮助将不胜感激.

Answer 1

这是基本逻辑.

您的示例将无效,因为2不等于1,因此第一个测试为真.

要否定OR连接,您否定每个测试并将OR更改为AND.你想要这种状态:

if { ( $argc == 1 ) || ( $argc == 2 ) } {
  puts "ok"
} else {
  puts "ng"
}

所以使用:

if { ( $argc != 1 ) && ( $argc != 2 ) } {
  # i.e. if $argc is either anything other than a 1 or a 2...
  puts "ERROR: \$argc should be either 1 or 2.\n"; exit 1
}

Answer 2

其他方式：

if {$argc ni {1 2}} { ... }

即：如果 argc 的值不在包含 1 和 2 的列表中，...

操作员ni需要 Tcl 8.5 或更高版本。

文档： if , ni （运算符）