perl：grep on constant array

Question

我想查找$ myVar中的值是否存在于常量MY_ARRAY中。以下似乎不起作用：

use constant {
  MY_ARRAY => ['E1', 'E2']
};
.
.
my $myVar = 'E2';
if ( grep( /^$myVar$/, MY_ARRAY ) ) {
...
}

Answer 1

您必须使用@{}

取消引用它

if ( grep( $_ eq $myVar, @{+MY_ARRAY} ) ) {
  # ...
}