perl - 子程序中的默认参数值

Question

我不知道如何为子程序设置默认参数。这是我考虑的:

sub hello {
  print @_ || "Hello world";
}

如果您需要的只是一个参数，那这很好用。您将如何为多个参数设置默认值？

我打算这样做:

sub hello {
  my $say = $_[0] || "Hello";
  my $to  = $_[1] || "World!";
  print "$say $to";
}

但这需要大量工作……必须有更简单的方法；可能是最佳实践？

Answer 1

我用这样的命名参数来做:

sub hello {
    my (%arg) = (
        'foo' => 'default_foo',
        'bar' => 'default_bar',
        @_
    );

}

我相信 Params::Validate支持默认值，但这比我喜欢的要麻烦。