Zeiger auf Funktionen

cmdline.pl

#!/usr/local/bin/perl -w my %cmd = ('sum' => \&sum, 'quit' => \&quit); while (print(": "), defined(my $line = <STDIN>)) { my ($cmdname, @fields) = split /\s+/, $line; next unless defined $cmdname; if (defined $cmd{$cmdname}) { &{$cmd{$cmdname}}(@fields); } else { print "Unknown command!\n"; } } sub sum { my $sum = 0; foreach my $val (@_) { $sum += $val }; print $sum, "\n"; } sub quit { exit 0 }

Wenn ein Zeiger von einer benannten Funktion gewünscht wird, darf das &-Symbol vor dem Funktionsnamen nicht vergessen werden.

Das &-Symbol ist dann auch beim indirekten Aufruf durch den Zeiger notwendig.

	Wenn ein Zeiger von einer benannten Funktion gewünscht wird, darf das `&`-Symbol vor dem Funktionsnamen nicht vergessen werden.
	Das `&`-Symbol ist dann auch beim indirekten Aufruf durch den Zeiger notwendig.