Question

有没有办法通过传递给另一个子程序的参数来选择子程序？像这样：

sub foo1 {
    # does stuff to @_
}

sub foo2 {
    # does other stuff to @_
}

sub foo3 {
    # does other stuff to @_
}

sub foo {
    my $whichsub = shift;
    my @fooed = foo.$whichsub @_;
    # does stuff to @fooed
}

其中foo.$whichsub应为foo1等。除了那当然不起作用。

Answer 1

您可以构建子程序的调度表。像这样的东西

my @foo_table = \(&foo1, &foo2, &foo3);

foo(2);

sub foo {
    my $whichsub = shift;
    die unless my $foosub = $foo_table[$whichsub-1];
    my @fooed = $foosub->(@_);

    # does stuff to @fooed
}

sub foo1 {
    # does stuff to @_
}

sub foo2 {
    # does other stuff to @_
}

sub foo3 {
    # does other stuff to @_
}

Answer 2

可以在没有桌子的情况下完成：

sub foo {
    my $whichsub = shift;
    my $foosub = "foo".$whichsub;
    my @fooed = &$foosub(@_);

    # does stuff to @fooed
}

将参数传递给子例程的名称

2 个答案: