कैसे कर सकते हैं पर्ल निरंतर के माध्यम से लूप

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->[0]) के तत्वों अभी भी संशोधित किया जा सकता।

Answer 2

my $nucleotides = NUCLEOTIDES; 

foreach (@$nucleotides) { 
} 

या आप इस उपयोगिता समारोह बना सकता है: (@) { वापसी @_ == 1 & & रेफरी ($ [0]) eq 'ARRAY' में

उप? @ {शिफ्ट()} : @ ; }

और फिर इस तरह इसे कहते:

for my $n (in NUCLEOTIDES) { 
} 

Answer 3

क्यों अपने निरंतर वापसी एक सूची नहीं है?

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]; 

आप भी अक्सर अलग-अलग तत्वों का उपयोग करने की आवश्यकता है।

Answer 4

आप निरंतर pragma का उपयोग करना चाहते हैं, तो आप सिर्फ यह कह सकते हैं

#!/usr/bin/perl 

use strict; 
use warnings; 

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

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

आइटम वसा अल्पविराम (=>) के अधिकार पर एक अदिश मूल्य होने की जरूरत नहीं है।