如何循环perl常量

Question

我想做同样的事情

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

但使用

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

我怎样才能做到这一点 ？

Answer 1

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

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

虽然要注意:尽管NUCLEOTIDES是常量,但NUCLEOTIDES->[0]仍可以修改引用数组(例如)的元素.

Answer 2

为什么不让你的常量返回列表？

sub NUCLEOTIDES () {qw(A C G T)}

print for NUCLEOTIDES;

甚至列表上下文中的列表和标量上下文中的数组引用:

sub NUCLEOTIDES () {wantarray ? qw(A C G T) : [qw(A C G T)]}

print for NUCLEOTIDES;

print NUCLEOTIDES->[2];

如果您还需要经常访问单个元素.