3 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10
sub Test { my(@arr1, @arr2) = @_; print "Array1: " . $_ . "\n" foreach (@arr1); print "Array2: " . $_ . "\n" foreach (@arr2); } # Mein Versuch: Test(('Test1', 'Test2'), ('Test3', 'Test4'));
1 2 3 4 5 6 7 8 9 10 11 12 13 14
sub Test { my($arr1, $arr2) = @_; print "Array1: " . $_ . "\n" foreach (@$arr1); print "Array2: " . $_ . "\n" foreach (@$arr2); } # Mein Versuch: Test(['Test1', 'Test2'], ['Test3', 'Test4']); my @ar1 = (1,2,3); my @ar2 = (6,7,8); Test(\@ar1,\@ars);
3 Einträge, 1 Seite |