Cómo puede recorrer constante Perl

Question

quiero hacer lo mismo que a continuación

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

pero utilizando

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

¿Cómo puedo hacer eso?

Answer 1

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

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

Aunque cuidado: Aunque NUCLEÓTIDOS es una constante, los elementos de la matriz que se hace referencia (por ejemplo NUCLEOTIDES->[0]) todavía se pueden modificar.

Answer 2

my $nucleotides = NUCLEOTIDES; 

foreach (@$nucleotides) { 
} 

O usted podría hacer esta función de utilidad:

sub en (@) { retorno @_ == 1 & & ref ($ [0]) eq 'array'? @ {shift()} : @ ; }

Y luego llamarlo así:

for my $n (in NUCLEOTIDES) { 
} 

Answer 3

por qué no hacer su declaración de constante una lista?

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

print for NUCLEOTIDES; 

o incluso una lista en el contexto de lista y un ref matriz en contexto escalar:

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

print for NUCLEOTIDES; 

print NUCLEOTIDES->[2]; 

si también necesita acceder con frecuencia elementos individuales.

Answer 4

Si desea utilizar el pragma constante, entonces se puede decir simplemente

#!/usr/bin/perl 

use strict; 
use warnings; 

use constant NUCLEOTIDES => qw/A C G T/; 

for my $nucleotide (NUCLEOTIDES) { 
    print "$nucleotide\n"; 
} 

El elemento de la derecha de la coma grasa (=>) no tiene que ser un valor escalar.