如何从 perl 哈希引用设置标量列表？

Question

如何从 perl 哈希设置标量列表？

use strict;
my $my_hash = { field1=>'val1', field2=>'val2', field3=>'val3', };
my ($field1,$field2,$field3) = %{$my_hash}{qw(field1 field2 field3)};

print "field1=$field1\nfield2=$field2\nfield3=$field3\n";

Answer 1

您正在寻找一个散列切片，在您的情况下，它看起来像这样：

my ($field1,$field2,$field3) = @{$my_hash}{qw(field1 field2 field3)};

或者像这样：

my ($field1,$field2,$field3) = @$my_hash{qw(field1 field2 field3)};

如果我们简化事情以便您使用直接散列而不是散列引用，我们可以消除一些噪音，并且语法看起来会更清晰一些：

my %my_hash = ( field1=>'val1', field2=>'val2', field3=>'val3' );
my ($field1, $field2, $field3) = @my_hash{  qw(field1 field2 field3)  };
# we want an array/list ---------^       ^  ^
# but my_hash is a hash -----------------/  |
# and we want these keys (in this order) ---/
# so we use a qw()-array

然后我们可以通过以$my_hash通常的方式用哈希引用替换哈希来获得您的哈希引用版本。