Pass-Array und Skalar zu einer Perl-Subroutine

Question

Mögliche Duplizieren: How do pass one array and one string as arguments to a function?

I eine Funktion habe, oder ein Unterprogramm, das als ein Array in dem ersten Parameter nimmt und den zweiten Parameter als ein Skalar. Zum Beispiel

sub calc { 
    my @array = $_[0]; 
    my $scalar = $_[1]; 
    print @array, $scalar; 
} 

Das Problem ist, dass die Funktion auf den ersten Wert des Arrays besteht in der Anordnung gleich macht, und die skalare der zweite Wert des Arrays in übergeben zu werden. Wenn ich die ersten will Array, um das gesamte Array zu sein, muss ich keine tiefe Kopie des Arrays erstellen. Zum Beispiel

my @array = ('51', 'M'); 
my $scalar = 21; 

und

calc(@array, $scalar) 

drucken 51 M wenn ich 51 M 21 will.

Answer 1

Sie müssen es passieren in als Referenz:

calc(\@array, $scalar)

Und dann greifen sie als: my @array = @{$_[0]};

Answer 2

Die Argumentliste in einer Perl-Subroutine ist einfach ein flacher Array. Wenn Sie ein bestimmtes Array übergeben möchten, müssen Sie es als Array-Referenz übergeben.

Answer 3

Sie einen Verweis auf das Array an die Funktion übergeben können:

calc(\@array, $scalar); 

Wenn Sie auf Elemente von @array in Ihrer Subroutine zugreifen müssen, können Sie es wie folgt tun:

my $array = $_[0]; 

# access first element of array 
print $array->[0]; 

Edit: Da dies eine Referenz auf das Original-Array ist, werden alle Änderungen, die in der Subroutine vorgenommen wurden, im ursprünglichen Array widergespiegelt.

Answer 4

Fahren Sie mit Array auf die Calc-Unterprogramm als Array ref:

calc(\@array, $scalar); 

Dann in Ihrem calc Unterprogramm, initialisieren Sie Ihre Eingabeparameter wie folgt aus:

sub calc { 
    my($array_ref, $scalar) = @_; 

    foreach my $item (@$array_ref) { 
    # process each item in the array ref 
    } 
} 

Answer 5

entweder einen Verweis auf die Verwendung Array als das erste Argument, oder umgekehrt die Argumente, so dass der Skalar zuerst ist und das Array kommt danach:

Versuchen Sie nicht Perlprototypes (zwei Artikel, einer auf Stack   Überlauf, einer auf PerlMonks).