Leser: 1
![]() |
|< 1 ... 3 4 5 6 >| | ![]() |
58 Einträge, 6 Seiten |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
#!/usr/bin/perl use strict; use warnings; sub my_test (\@$) { my ($arref, $sk) = @_; print "Das Array hat ", scalar(@$arref), " Werte und der Skalar ist $sk.\n"; } my @array = (1, 2, 3); print "Eins:\n"; my_test (@array, 4); print "Zwei:\n"; &my_test (@array, 4);
1
2
3
4
Eins:
Das Array hat 3 Werte und der Skalar ist 4.
Zwei:
Can't use string ("1") as an ARRAY ref while "strict refs" in use at ./proto.pl line 8.
Quoteaber einen solchen Fehler entdeckt man sehr schnell, und uebergibt dann halt einfach das, was die Subroutine haben will. Dann geschieht nicht so viel "Dirty Magic"...
&my_test (\@array, 4);
![]() |
|< 1 ... 3 4 5 6 >| | ![]() |
58 Einträge, 6 Seiten |