"将 hashref 转换为 kv 对数组"

Question

这是我的初始代码：

sub my_sub {
    my $hash = {
        age => 5, # default value for "age" key
        @_        # the rest of the "hash" as an array
    };
    ...
}

#used like so:
my_sub("age" => 42, ...);

Answer 1

我不确定您为什么要在调用者中使用哈希引用，因为它只会使调用更加嘈杂。 但是你可以使用

sub my_sub {
   my %args = @_ == 1 ? %{ $_[0] } : @_;

   $args{ age } //= 5;

   ...
}