如何检查是否只设置了三个变量中的一个变量

Question

我想限制用户输入（通过GetOpt :: Long）只有一个值，可能是三个。这些值是'pc-number'，'ip-address'和'surname'。

当有两个值，我是做了以下内容：

if ((!$pc_number and !$address) or ($pc_number and $address)) { 
    pod2usage("You must supply pc_number OR ip_address."); 
    exit; 
} elsif ($pc_number) { 
    (do stuff) 
} 

我怎么能简单地确保只有一个三个变量的用户设置？

Answer 1

使用grep来计算真值的数量。也可以检查defined是否合适：

if (1 != grep {$_} ($pc_number, $address, $surname)) { 
    pod2usage "You must supply one and only one parameter: pc_number, ip_address, surname."; 
    exit; 

} elsif ($pc_number) { 
    ...; 

Answer 2

这似乎做到这一点：

if (($x xor $y xor $z) and not $x && $y && $z) { 
    ... # one (and only one) is true 
} 

...虽然我不知道这是你想要的，你必须维护的代码遇到的那种东西。