Hoi Fans!
Gibt es eine Möglichkeit zwei Array´s an eine Unterroutine zu übergeben und wieder richtig dort zu trennen? So in der Art:
&blah(@array1,@array2);
Ich kenne das einlesen von übergebenen Variablen nur so:
sub blah {
my @array = @\_;
}
Aber da hätt ich ja beide Arrays in Einem…
Gruß,
Martin
#zwei arrays
@a=("eins","zwei","drei");
@b=(1,2,3,4,5);
#funktionsaufruf:
funktion (\@a, \@b); #benannte Zeiger mit \
funktion (["six","seven", "eight"], [6,7,8,9]); #anonyme zeiger
#die funktion
sub funktion {
#gewinnen des ganzen arrays:
@array1=@{$\_[0]}; #gewinnen des ganzen arrays:
@array2=@{$\_[1]};
print "array 1:\n" . join (@array1) . "\n\n";
print "array 2:\n" . join (@array2) . "\n\n";
#zugriff auf ein einzelnes element
print $array2[0] . " = "; #eq. mit
print $\_[1]-\>[0] . "\n\n";
}
bohha… mit Zeigern hab ich noch gar nix gemacht bis jetzt …
also zumindest nicht wissentlich.
Aber danke. ich werde das gleich mal testen 
/me muss sich doch noch mehr in so ein Buch reinlesen …
Gruß