如何在perl中使用给定的'OR'？

Question

我在perl中的Given-When语句中很新。 我想得到$ var = 0或2的相同结果，任何帮助？

我尝试过以下操作，但收到错误。

given($var) {
when(0 || 2) { print "bala";}
when(1) {print "blabla";}
default {print "default";}
}

Answer 1

你可以缩短它：

given($var) {
print "bala" when [0,2];
print "blabla" when [1];
default {print "default"}
}

您的原件不起作用，因为“0 || 2”始终评估为“2”

Answer 2

知道了！

given($var) {
when($_==0 || $_==2) { print "bala";}
when(1) {print "blabla";}
default {print "default";}
}