Làm cách nào tôi có thể trích xuất giá trị băm vào một mảng trong thứ tự chèn của chúng?

Question

Cho một băm trong Perl (băm bất kỳ), làm thế nào tôi có thể trích xuất các giá trị từ băm đó, theo thứ tự chúng được thêm vào và đặt chúng trong một mảng?

Ví dụ:

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

Tôi muốn để có được những kết quả sau:

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

Answer 1

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

---

Sử dụng Tie::IxHash từ 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,...) 

Answer 2

Bạn có thể sử dụng values, nhưng tôi nghĩ bạn không thể nhận được chúng theo thứ tự đúng như thứ tự đã bị mất khi bạn tạo mã băm

Answer 3

Sau đây sẽ làm những gì bạn muốn:

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

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

NB: Một giải pháp tốt hơn nữa là sử dụng Tie::IxHash hoặc Tie::Hash::Indexed để đặt hàng chèn trình quản lý.

Answer 4

Nếu bạn có một danh sách các phím theo thứ tự đúng, bạn có thể sử dụng một lát băm:

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

Nếu không, sử dụng Tie::IxHash.