Tcl: multiples conditionals à l'intérieur de l'instruction if

Question

Juste essayer de faire un peu de vérification de base dans un script ... pour produire une erreur si $ argc est pas 1 ou 2.

J'ai essayé:

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

et

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

etc.

mais n'a pas pu le faire fonctionner en utilisant l'un des parenthèses/accolade combina tions.

Toute aide serait grandement appréciée.

Merci!

Answer 1

Ceci est une logique de base.

Votre exemple ne fonctionnera pas car 2 n'est pas égal à 1, donc le premier test est vrai.

Pour annuler une conjonction OR, annulez chaque test et remplacez le OU par un ET. Vous voulez cet état:

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

Il faut donc utiliser:

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

Une autre façon:

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

C'est: si la valeur de argc est pas la liste contenant 1 et 2, ...

Le ni opérateur nécessite Tcl 8.5 ou plus tard.

Documentation: if, ni (operator)