Come può ciclo attraverso perl costante

Question

voglio fare lo stesso, come di seguito

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

ma utilizzando

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

Come posso fare questo?

Answer 1

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

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

Sebbene attenzione: Sebbene NUCLEOTIDI è una costante, gli elementi della matrice riferimento (ad esempio NUCLEOTIDES->[0]) possono ancora essere modificate.

Answer 2

my $nucleotides = NUCLEOTIDES; 

foreach (@$nucleotides) { 
} 

Oppure si potrebbe fare questa funzione di utilità:

sub a (@) { ritorno @_ == 1 & & ref ($ [0]) eq 'allineamento'? @ {shift()} : @ ; }

E poi chiamare in questo modo:

for my $n (in NUCLEOTIDES) { 
} 

Answer 3

Perché non rendere il vostro ritorno costante una lista?

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

print for NUCLEOTIDES; 

o anche una lista in contesto lista e di un arbitro per array in un contesto scalare:

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

print for NUCLEOTIDES; 

print NUCLEOTIDES->[2]; 

se anche avete bisogno di accedere frequentemente singoli elementi.

Answer 4

Se si desidera utilizzare il pragma costante, allora si può solo dire

#!/usr/bin/perl 

use strict; 
use warnings; 

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

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

La voce a destra della virgola grasso (=>) non deve essere un valore scalare.