arrays - perl：常量数组上的 grep

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} ) ) {
  # ...
}