"Troppi argomenti" quando si passa un array al sub Perl?

Question

Ho una funzione di seguito in perl

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

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

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

     } 
     } 

} 

io chiamo questa funzione passando un argomento di matrice come qui di seguito:

create_hash(@files2); 

L'array ha in tutto 38 i valori in esso. Ma sto ottenendo gli errori di compilazione:

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

che cosa è il torto che sto facendo qui?

mia versione perl è:

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

Answer 1

Il tuo problema è proprio qui:

sub create_hash() 
{ 

Il () è un prototype. In questo caso, indica che create_hash non accetta parametri. Quando cerchi di passarlo un po ', Perl si lamenta.

Dovrebbe apparire come

sub create_hash 
{ 

In generale, you should not use prototypes with Perl functions. Non sono come i prototipi nella maggior parte delle altre lingue. Hanno degli usi, ma questo è un argomento abbastanza avanzato in Perl.

Answer 2

all'utente di riferimento array come:

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

create_hash(\@files2);