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

Question

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

例子:

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

我想得到以下结果:

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

Answer 1

来自 perldoc perlfaq4 :How can I make my hash remember the order I put elements into it?

Use the Tie::IxHash from CPAN.

use Tie::IxHash;
tie my %myhash, 'Tie::IxHash';

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

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

my @keys = keys %myhash;
# @keys = (0,1,2,3,...)