मैं पर्ल सबराउटिन में दो सूचियों को कैसे पास कर सकता हूं?

Question

क्या पर्ल में sub में दो सूचियों को पास करना संभव है, उदाहरण के लिए:

sub Foo { 
my(@list1,@list2) = @_; 

} 

मुझे पता है कि मैं @_ दो सूचियां बना सकता हूं, प्रत्येक उपन्यास वांछित तर्क होने के साथ, मैं बस सोच रहा हूं कि कोई है या नहीं क्लीनर रास्ता

Answer 1

खैर अगर आप दो सरणियों आप एक प्रोटोटाइप इस्तेमाल कर सकते हैं चाहते हैं:

sub foo (\@\@) { 
    my $arr1 = shift; 
    my $arr2 = shift; 

    # Access arrays as references 
} 

foo(@wiz, @waz); # @wiz and @waz won't be flattened. 

लेकिन वहाँ कई मायनों prot चारों ओर पाने के लिए कर रहे हैं otypes, और मैं उन्हें ज्यादातर स्थानों में से बचना पसंद करते हैं। आप बस प्रोटोटाइप को छोड़ सकते हैं और मैन्युअल रूप से संदर्भ पारित:

sub foo { 
    my $arr1 = shift; 
    my $arr2 = shift; 

    # Access arrays as references 
} 

foo(\@wiz, \@waz); # Pass in wiz/waz as refs 
foo([1,2,4],[3,5,6]); # Hard coded arrays 

आप बिल्कुल संदर्भ के साथ काम नहीं किया है, तो एक अच्छा ट्यूटोरियल के लिए perlreftut की जाँच करें।

Answer 2

यदि आप मूल्य से दो सूचियां पास करते हैं ... तो आपको @_ में एक बड़ी सूची मिल जाएगी।

my(@list1,@list2) = @_; किसी भी मतलब नहीं है:

1 2 3 5 6 7 
<blank line> 

दो सरणियों पास करने के लिए, आप उन्हें संदर्भ द्वारा पारित करने के लिए आवश्यकता होगी::

#!/usr/bin/perl 

sub test 
{ 
    my (@a, @b) = @_; 

    print "@a\n"; 
    print "@b\n"; 
} 

my @array1 = (1,2,3); 
my @array2 = (5,6,7); 

test(@array1, @array2); 

यह मुद्रण खत्म हो जाएगा

test(\@array1, \@array2); 

और आपके उप में आपको संदर्भ के रूप में उनका इलाज करने की आवश्यकता होगी:

sub test 
{ 
    my ($arrayRef1, $arrayRef2) = @_; 
    print "@$arrayRef1\n"; 
    print "@$arrayRef2\n"; 
}