小编JQK*_*QKP的帖子

http://perldoc.perl.org/Text/Balanced.html说:

该extract_delimited函数形式化了从字符串的开头提取单字符分隔子字符串的常用习惯用法.例如,要提取单引号分隔的字符串,通常使用以下代码:

($remainder = $text) =~ s/\A('(\\.|[^'])*')//s;
$extracted = $1;

Run Code Online (Sandbox Code Playgroud)

\\.(这是'\.')似乎被覆盖([^'])*.为什么\\.|在那里？为什么不用s/\A('[^']*')//s？

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

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等.除了那当然不起作用.