पर्ल उप में सरणी पास करते समय "बहुत अधिक तर्क"?

Question

मैं नीचे की तरह एक सरणी तर्क पारित करके पर्ल

sub create_hash() 
{ 
my @files = @_; 

     foreach(@files){ 
     if(/.text/) 
     { 

     open($files_list{$_},">>$_") || die("This file will not open!"); 

     } 
     } 

} 

मैं इस समारोह बोल रहा हूँ में नीचे एक समारोह है:

create_hash(@files2); 

सरणी उस में 38 के आसपास मूल्यों मिल गया है। लेकिन मैं हो रही है संकलन त्रुटियों:

Too many arguments for main::create_hash at .... 

क्या गलत है कि मैं यहाँ कर रहा हूँ?

मेरी पर्ल संस्करण है:

This is perl, v5.8.4 built for i86pc-solaris-64int 
(with 36 registered patches, see perl -V for more detail) 

Answer 1

आपकी समस्या यहीं है:

sub create_hash() 
{ 

() एक prototype है। इस मामले में, यह इंगित करता है कि create_hash कोई पैरामीटर नहीं लेता है। जब आप इसे पास करने का प्रयास करते हैं, तो पर्ल शिकायत करता है।

ऐसा लगता है कि

sub create_hash 
{ 

सामान्य तौर पर, you should not use prototypes with Perl functions दिखना चाहिए। वे अन्य भाषाओं में प्रोटोटाइप की तरह नहीं हैं। वे उपयोग करते हैं, लेकिन यह पर्ल में एक काफी उन्नत विषय है।

Answer 2

के रूप में सरणी संदर्भ का उपयोग कर सकते हैं:

sub create_hash { 
    my ($files) = @_; 
    foreach(@{$files)){ 
     ... 
    } 
} 

create_hash(\@files2);