Perl subroutine array and scalar variable parameters

Question

How exactly can I pass both scalar variables and array variables to a subroutine in Perl?

 my $currVal = 1;
 my $currValTwo = 1;
 my @currArray = (\'one\',\'two\         


        

Answer 1

So, for example: This is a using statement to search something in an array:

use List::Util qw(first);

This is the sub declaration:

sub GetIndex($$$);

This is the call to the sub (last parameter is: Default index value to give back if not found)

$searchedIndex = GetIndex(\@theArr, "valuesearched", 1);

This is the routine:

sub GetIndex($$$)
{
    my $inArray=shift;
    my @theArray= @{$inArray};
    my $searchedTag= shift;
    my $defaultVal= shift;

    my $retVal = first { $theArray[$_] eq $searchedTag} 0 .. $#theArray;
    if ((! defined $retVal)|| ($retVal<0)||($retVal>@theArray))
    {
        $retVal = $defaultVal;
    }
    return $retVal;
}