のTcl：内部の複数の条件文の文

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 
} 

など

しかし、それは括弧のいずれかを使用して動作させることができませんでした/ブレースCOMBINA 。

ご協力いただければ幸いです。

ありがとうございました！

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

別の方法：のargcの値がある場合にリストが1を含まない：ある

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

あなたはこのような状態にしたいです2、...

niオペレータにはTcl 8.5以降が必要です。

ドキュメント： if、ni (operator)