¿Cómo se pasa una matriz y un escalar a una subrutina en Perl?

How do you pass an array and scalar to a subroutine in Perl?

Passing an array to a subroutine

1. First, we defined an array of integers @a .
2. Next, we passed a reference to the array @a to the subroutine &max , specified by /@a .
3. Then, inside the subroutine &max , we defined a lexical variable $aref and set its values to the array reference stored in the argument array @_.

When calling a subroutine, arguments can be passed to to it by writing them as a comma-delimited list inside the () . Inside the subroutine, these arguments are accessible using the special array @_ . The first argument to the function is in $_[0] , the second is in $_[1] , and so on.

To pass parameters to a subroutine, the calling program pushes them on the stack in the reverse order so that the last parameter to pass is the first one pushed, and the first parameter to pass is the last one pushed. This way the first parameter is on top of the stack and the last one is at the bottom of the stack.

Parameters define the data that must be passed into a subroutine when it is called. A parameter is a special kind of variable: it is a placeholder for any value that a subroutine uses when it is called. Parameters are defined when a subroutine is declared, usually inside brackets after the subroutine identifier.

Because the @_ variable is an array, it can be used to supply lists to a subroutine. However, because of the way in which Perl accepts and parses lists and arrays, it can be difficult to extract the individual elements from @_.

Either use a reference to the array as the first argument, or reverse the arguments so that the scalar is first and the array comes afterwards: Do not try Perl prototypes (two articles, one on Stack Overflow, one on PerlMonks ). When you need to access elements of @array in your subroutine you can do it like this:

I have a function, or subroutine, that takes in the first parameter as an array and the second parameter as a scalar. For example, The problem is that the function is making the array equal to the first value of the array passed in, and the scalar to be the second value of the array passed in.

Edit: Since this is a reference to the original array any changes made in the subroutine will be reflected in the original array. The argument list in a Perl subroutine is simply a flat array. If you want to pass a distinct array, you must pass it as an array reference.