2x @ an sub?

[Alexander Foken]

Hi,

kann man an eine Subroutine 2 Arrays übergeben??

ja, mittels Referenzen. Siehe

perldoc perlref
perldoc perlreftut

my @alleDirs = @_;

perldoc -f shift

Großes Lob für die Verwendung von 'my'!

Cheatah

Moin Moin!

Kleines stupides Demo dazu:

#!/usr/bin/perl -w

use strict;

sub meine_sub($$)
{
  my ($aref1,$aref2)=@_;
  print "Alles aus array 1: ",join(", ",@$aref1),"\n";
  print "Alles aus array 2: ",join(", ",@$aref2),"\n";
  print "Erstes Element aus array 1: ",$aref1->[0],"\n";
}

my @demo1=(1,2,3);
my @demo2=(4,5,6);

meine_sub(@demo1,@demo2);

__END__

Alexander