arrays - 如何遍历perl常量

我想做下面的一样

my @nucleotides = ('A', 'C', 'G', 'T');
foreach (@nucleotides) {
    print $_;
}

但是使用

use constant NUCLEOTIDES => ['A', 'C', 'G', 'T'];

我怎样才能做到这一点 ？

最佳答案

use constant NUCLEOTIDES => [ qw{ A C G T } ];

foreach (@{+NUCLEOTIDES}) {
    print;
}

尽管要当心:尽管NUCLEOTIDES是一个常量，但仍可以修改引用数组的元素(例如NUCLEOTIDES->[0])。