Leser: 1
7 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
sub funktion ($;$) {
my $bla = shift;
my $blubb = shift || '';
...
}
...
funktion(); # Fehler !
funktion('A'); # OK
funktion('A', 'B'); # OK
funktion('A', 'B', 'C'); # Fehler!
1
2
3
4
5
6
7
8
9
sub machwas (\@\@) {
my ($arrayref1, $arrayre2) = @_;
....
}
my @a = 0 .. 9;
my @b = 'a' .. 'f';
machwas(@a, @b);
1
2
3
4
5
6
7
8
sub f ($) { print $_[0], "\n"; }
sub g { print $_[0], "\n"; }
f("Hallo"); # ok
f "Hallo"; # ok
g("Hallo"); # ok
g "Hallo"; # Fehler!
7 Einträge, 1 Seite |