如何按照插入顺序将哈希值提取到数组中？

Question

给定 Perl 中的散列（任何散列），如何按照添加顺序从该散列中提取值并将它们放入数组中？

示例：

my %given = ( foo => '10', bar => '20', baz => '15' );

我想得到以下结果：

my @givenValues = (10, 20, 15);

Answer 1

来自perldoc perlfaq4：如何让我的哈希记住我将元素放入其中的顺序？

---

使用 Tie::IxHash CPAN。

使用 Tie::IxHash;
绑定我的 %myhash, 'Tie::IxHash';

for (我的 $i=0; $i<20; $i++) {

    $myhash{$i} = 2*$i;
}

我的 @keys = 键 %myhash;
# @keys = (0,1,2,3,...)

Answer 2

以下将执行您想要的操作：

my @orderedKeys = qw(foo bar baz);
my %records     = (foo => '10', bar => '20', baz => '15');

my @givenValues = map {$records{$_}} @orderedKeys;

注意：更好的解决方案是使用 Tie::IxHash 或 Tie::Hash::Indexed 到保存器插入顺序。

Answer 3

如果您有一个顺序正确的键列表，则可以使用哈希切片：

 my @keys   = qw(foo bar baz);
 my %given  = {foo => '10', bar => '20', baz => '15'}
 my @values = @given{@keys};

否则，请使用 Tie::IxHash。

Answer 4

您可以使用 values ，但我认为您无法按正确的顺序获取它们，因为在创建哈希时顺序已经丢失