渡す私はmySubroutine、<code>$name, $age</code>をサブルーチンに次の変数を渡したいPerlサブルーチン

Question

に変数とし、この多次元配列：

$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; 

サブルーチン：私は$_[0]を試してみました

sub mySubroutine 
{ 

} 

、および@_が、サブルーチンに渡される変数を正しく取得していないようです。

Answer 1

これを行う方法はいくつかあります（Perlのほとんどのもののように）。参照によって配列を渡したが、その後、あなたがそれを編集する場合、元の変更を避けるために、それのコピーを作成し

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

もう一つの方法は、私は個人的に、このようにそれを行います。

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); 

perlsub（Perlサブルーチン）を参照してください。

Answer 3

別のオプションは、限り、あなたは唯一の配列を渡しているように、最後の要素として値で、通常はそれを渡すことです：

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); 

はしかし、配列の任意の追加のコピーを避けるために、最も効率的ですサブ内の参照のみを使用します。これは、サブの配列の変更がオリジナルに影響することを意味します。

sub array_by_ref { 
    my $array_ref = shift; 

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

array_by_ref(\@original_array);