पास सरणी और एक पर्ल सबरूटीन को अदिश

Question

संभव डुप्लिकेट: How do pass one array and one string as arguments to a function?

मैं एक समारोह, या सबरूटीन, जिसे एक श्रृंखला के रूप में और दूसरा पैरामीटर के रूप में पहले पैरामीटर में लेता है एक स्केलर उदाहरण के लिए,

sub calc { 
    my @array = $_[0]; 
    my $scalar = $_[1]; 
    print @array, $scalar; 
} 

समस्या यह है कि समारोह सरणी सरणी में पारित की पहली मूल्य के बराबर बना रहा है, और अदिश सरणी में पारित की दूसरी मूल्य हो रहा है। जब मैं चाहता हूँ पहले सरणी पूरी सरणी होने के लिए, मुझे सरणी की गहरी प्रतिलिपि बनाने की आवश्यकता नहीं है। उदाहरण के लिए,

my @array = ('51', 'M'); 
my $scalar = 21; 

और

calc(@array, $scalar) 

51 M प्रिंट जब मैं 51 M 21 चाहते है।

Answer 1

आप इसे एक संदर्भ के रूप में में पारित करने के लिए की जरूरत है:

calc(\@array, $scalar)

और फिर के रूप में इसे का उपयोग: my @array = @{$_[0]};

Answer 2

पर्ल सबराउटिन में तर्क सूची बस एक फ्लैट सरणी है। यदि आप एक अलग सरणी पास करना चाहते हैं, तो आपको इसे सरणी संदर्भ के रूप में पास करना होगा।

Answer 3

आप अपने कार्य करने के लिए सरणी के लिए एक संदर्भ पारित कर सकते हैं:

calc(\@array, $scalar); 

जब आपको अपने सबराउटिन में @array के तत्वों तक पहुंचने की आवश्यकता होती है तो आप इसे ऐसा कर सकते हैं:

my $array = $_[0]; 

# access first element of array 
print $array->[0]; 

संपादित करें: चूंकि यह मूल सरणी का संदर्भ है, इसलिए सबराउटिन में किए गए किसी भी बदलाव मूल सरणी में दिखाई देंगे।

Answer 4

एक सरणी रेफरी के रूप में calc सबरूटीन करने के लिए अपने सरणी दर्रा:

calc(\@array, $scalar); 

फिर अपने calc सबरूटीन में

, तो आप इस तरह अपने इनपुट पैरामीटर प्रारंभ:

sub calc { 
    my($array_ref, $scalar) = @_; 

    foreach my $item (@$array_ref) { 
    # process each item in the array ref 
    } 
} 

Answer 5

या तो के लिए एक संदर्भ का उपयोग सरणी को पहली तर्क के रूप में, या तर्कों को उलट दें ताकि स्केलर पहले हो और सरणी बाद में आती है:

sub reversed_args 
{ 
    my($scalar, @array) = @_; 
    # ... 
    print @array, $scalar, "\n"; 
} 

my @array = ('51', 'M'); 
my $scalar = 21; 

reversed_args($scalar, @array); 

Perlprototypes (दो लेख, स्टैक   ओवरफ्लो पर एक, PerlMonks पर एक कोशिश न करें)।