如何将可选参数传递给函数

Question

我正在尝试使模块的函数接受以下形式的可选参数：

function(arg1, optional1 => opt1, optional2 => opt2, ..);

但是我找不到任何能很好解释如何执行此操作的地方。 我想出了以下解决方案来接受email ， alpha和html参数，但是它非常复杂，我无法相信没有比这更短的方法了：

sub test
{
    my ($s, @args) = @_;
    my $alpha = 1;
    my $html = 0;
    my $email = 0;
    for(my $i = 0; $i < scalar(@args); $i++)
    {
        if($args[$i] eq "alpha")
        {
            $i++;
            $alpha = $args[$i];
        }
        elsif($args[$i] eq "email")
        {
            $i++;
            $email = $args[$i];
        }
        elsif($args[$i] eq "html")
        {
            $i++;
            $html = $args[$i];
        }
    }
    return ($alpha, $email, $html);
}

my ($a, $b, $c) = test("stuff", ndhgffs => 1, email => 1, alpha => 0);

print $a . $b . $c;

编辑：

由于下面的答案和下面的评论，这解决了它：

sub test
{
   my ($s, %opts) = @_;
   my $email = $opts{'email'} // 0;
   my $alpha = $opts{'alpha'} // 1;
   my $html = $opts{'html'} // 0;
   return ($alpha, $email, $html);
}

Answer 1

sub function {
   my $arg1 = shift;
   my $arg2 = shift;
   my %opts = @_;
   my $optional1 = delete($opts{$optional1});
   my $optional2 = delete($opts{$optional2});
   croak("Unrecognized parameters ".join(' ', keys(%opts))) if %opts;
   ...
}

要么

sub function {
   my ($arg1, $arg2, %opts) = @_;
   my $optional1 = delete($opts{$optional1});
   my $optional2 = delete($opts{$optional2});
   croak("Unrecognized parameters ".join(' ', keys(%opts))) if %opts;
   ...
}

---

笔记：

• 如果您不想打扰无法识别的选项，则不需要delete 。

• 当省略或使用undef参数时，可以轻松分配默认值

   my $arg = delete($opts{$arg}) // 'default'; # Perl 5.10+ 

Answer 2

如果将子例程参数从@_的值复制并“按出现顺序”分配给函数的变量，则可以将函数编写为具有可以使用已定义的OR运算符//设置的默认值，或者值确实是可选的，并非总是需要的，那么您可以分配一个占位符值（ 例如 not_set ），然后在该函数从@_读取其参数后，使用类似以下内容的值将其删除/删除：

for (keys %opthash){ if ($opthash{$_} =~ /not_set/)  {delete $opthash{$_} }}

如果此功能是经常使用的功能，我不确定这是否是最有效的方法。