Question

我写perl的,表示或者关系写法有一个问题 a==1||a==2||a==3||a==4可以写成类似a==(1||2||

Answer 1

一般这种情况我会这样写

@options = qw/1 2 3 4/;

if ( grep { $A == $_ } @options ) { ... }