Przekazywanie zmiennych na Perl podprogramu

Question

chciałbym przejść następujące zmienne podprocedury mySubroutine, $name, $age i wówczas wielowymiarowej tablicy:

$name = "jennifer"; 
$age = 100; 

$list[0][0] = "TEST NAME 2"; 
$list[0][1] = "TEST GROUP 2"; 
$[0][2] = 10; 

$[1][0] = "TEST NAME 2"; 
$[1][1] = "TEST GROUP 2"; 
$[1][2] = 2; 

podprogramu

sub mySubroutine 
{ 

} 

Próbowałem $_[0] i @_, ale wydaje mi się, że zmienne nie zostały poprawnie przekazane do podprogramu.

Answer 1

Istnieje kilka sposobów, aby to zrobić (jak większość rzeczy w Perlu). Ja osobiście zrobić to tak:

sub mySubroutine 
{ 
    # Get passed arguments 
    my ($name, $age, $refList) = @_; 

    # Get the array from the reference 
    my @list = @{$refList}; 
    # Good to go 
} 

# You need to pass @list as reference, so you 
# put \@list, which is the reference to the array 
mySubroutine($name, $age, \@list); 

Answer 2

inny sposób, który przechodzi tablicę przez odniesienie, ale potem tworzy kopię tego uniknąć zmieniając oryginalny kiedy go edytować.

sub mySubroutine 
{ 
    ## Retrieve name 
    my $name = shift; 

    ## Retrieve age 
    my $age = shift; 

    ## Retrieve list reference 
    my $refList = shift; 

    ## De-reference the list's scalar 
    my @list = @{$refList}; 
    # Good to go 
} 

## Function call 
mySubroutine($name, $age, \@list); 

Aby uzyskać więcej informacji, zapoznaj się z perlsub (podprogramy Perla).

Answer 3

Inną opcją, jak długo trzeba przejechać tylko jedną tablicę, to przekazać go normalnie przez wartość jako ostatni element:

sub scalars_and_one_array { 
    my $name = shift; 
    my $age = shift; 

    foreach my $element (@_) 
    { 
     # Do something with the array that was passed in. 
    } 
} 

scalars_and_one_array($name,$age,@array); 

Jednak jest to najbardziej efektywny, aby uniknąć dodatkowej kopii tablicy używając tylko odniesienia w podsieci. Oznacza to, że zmiany w tablicy podrzędnej wpływają na oryginał, jednak:

sub array_by_ref { 
    my $array_ref = shift; 

    foreach my $element (@$array_ref) 
    { 
     # Changing $element changes @original_array! 
    } 
} 

array_by_ref(\@original_array);