Jak pętli Perl stałej

Question

chcę zrobić takie same jak poniżej

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

ale stosując

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

W jaki sposób można to zrobić?

Answer 1

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

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

Chociaż uwaga: Chociaż nukleotydy stałą elementy wymienionej tablicy (np NUCLEOTIDES->[0]) wciąż może być modyfikowany.

Answer 2

my $nucleotides = NUCLEOTIDES; 

foreach (@$nucleotides) { 
} 

Albo można zrobić tę funkcję użytkową:

Sub (@) { powrócić @_ == 1 & & ref ($ [0]) eq 'ARRAY'? @ {shift()} : @ ; }

A potem nazwać tak:

for my $n (in NUCLEOTIDES) { 
} 

Answer 3

Dlaczego nie uczynić stałym zwróci listę?

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

print for NUCLEOTIDES; 

lub nawet lista w kontekście listowym i ref tablicy w kontekście skalarnym:

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

print for NUCLEOTIDES; 

print NUCLEOTIDES->[2]; 

jeśli trzeba także często dostęp do poszczególnych elementów.

Answer 4

Jeśli chcesz użyć stałej pragmy, wtedy można po prostu powiedzieć

#!/usr/bin/perl 

use strict; 
use warnings; 

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

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

pozycja na prawo od przecinka tłuszczu (=>) nie musi być wartością skalarną.