"Demasiados argumentos" al pasar una matriz a Perl sub?

Question

que tienen una función más adelante en Perl

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

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

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

     } 
     } 

} 

estoy llamando esta función pasando un argumento de matriz, como a continuación:

create_hash(@files2); 

La matriz tiene alrededor de 38 valores en ella. Pero estoy recibiendo errores de compilación:

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

lo que es el mal que estoy haciendo aquí?

mi versión de Perl es:

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

Answer 1

Su problema está aquí:

sub create_hash() 
{ 

El () es una prototype. En este caso, indica que create_hash no toma parámetros. Cuando intentas pasarlo, Perl se queja.

Debe quedar como

sub create_hash 
{ 

En general, you should not use prototypes with Perl functions. No son como prototipos en la mayoría de los otros idiomas. Tienen usos, pero ese es un tema bastante avanzado en Perl.

Answer 2

podríamos usar como referencia de matriz:

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

create_hash(\@files2);