Editing Dispatch table (section)

=== Perl ===
The following shows one way to implement a dispatch table in [[Perl]], using a [[Associative array#Perl|hash]] to store references to code (also known as [[function pointer]]s).

<syntaxhighlight lang="perl">
# Define the table using one anonymous code-ref and one named code-ref
my %dispatch = (
    "-h" => sub {  return "hello\n"; },
    "-g" => \&say_goodbye
);
 
sub say_goodbye {
    return "goodbye\n";
}
 
# Fetch the code ref from the table, and invoke it
my $sub = $dispatch{$ARGV[0]};
print $sub ? $sub->() : "unknown argument\n";
</syntaxhighlight>

Running this Perl program as <code>perl greet -h</code> will produce "hello", and running it as <code>perl greet -g</code> will produce "goodbye".