排序從第一個鍵到最後一個（Perl）的散列

Question

我有下面的散列，我希望保持它在我設置的順序;這甚至有可能嗎？如果沒有，有沒有其他的選擇？

my %hash = ('Key1' => 'Value1', 'Key2' => 'Value2', 'Key3' => 'Value3'); 

是否需要編寫自定義排序子程序？我有什麼選擇？

謝謝！

Answer 1

http://metacpan.org/pod/Tie::IxHash

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

該散列將維持其秩序。

Answer 2

嘗試這樣做：

print "$_=$hash{$_}\n" for sort keys %hash; 

，如果你想它排序按字母順序排列。

如果您需要保留原始訂單，請參閱其他帖子。

見http://perldoc.perl.org/functions/sort.html

Answer 3

參見Tie::Hash::Indexed。引用其內容摘要：

use Tie::Hash::Indexed; 

tie my %hash, 'Tie::Hash::Indexed'; 

%hash = (I => 1, n => 2, d => 3, e => 4); 
$hash{x} = 5; 

print keys %hash, "\n"; # prints 'Index' 
print values %hash, "\n"; # prints '12345' 

Answer 4

一種可能性是按照您有時用數組進行的操作：指定鍵。

for (0..$#a) { # Sorted array keys 
    say $a[$_]; 
} 

for (sort keys %h) { # Sorted hash keys 
    say $h{$_}; 
} 

for (0, 1, 3) { # Sorted array keys 
    say $h{$_}; 
} 

for (qw(Key1 Key2 Key3)) { # Sorted hash keys 
    say $h{$_}; 
} 

您也可以按照如下取有序值：

my @values = @h{qw(Key1 Key2 Key3)}; 

Answer 5

這取決於你將如何訪問數據。如果你只是想存儲它們並訪問最後的/第一個值，你總是可以把哈希放入一個數組中並使用push（）和pop（）。

#!/usr/bin/env perl 

use strict; 
use warnings; 

use v5.10; 

use Data::Dumper; 

my @hashes; 

foreach(1..5){ 
    push @hashes, { "key $_" => "foo" }; 
} 


say Dumper(\@hashes);