요소가 추가 된 순서대로 해시를 인쇄하려면 어떻게해야합니까?

Question

LIFO 또는 FIFO 방식으로 해시를 사용할 수 있습니까? 해시가 추가 된 요소와 동일한 순서로 인쇄되는지 어떻게 확인할 수 있습니까? 그 해시의 본질이다 -

#!/usr/bin/perl 

print "content-type: text/html \n\n"; 

# BEGINNING HASH 
%coins = ("Quarter" , .25, 
      "Dime" , .10, 
      "Nickel", .05); 
# PRINT THE OLD HASH 
while (($key, $value) = each(%coins)){ 
    print $key.", ".$value."<br />"; 
} 

# ADD NEW ELEMENT PAIRS 
$coins{Penny} = .01; 
$coins{HalfDollar} = .50; 

# PRINT THE NEW HASH 
print "<br />"; 
while (($key, $value) = each(%coins)){ 
    print $key.", ".$value."<br />"; 
} 

이

Nickel, 0.05 
Dime, 0.1 
Quarter, 0.25 

Nickel, 0.05 
Dime, 0.1 
HalfDollar, 0.5 
Penny, 0.01 
Quarter, 0.25

Answer 1

당신이

my @coins = qw/ Quarter Dime Nickel Penny HalfDollar /; 

for my $key (@coins) { 
    print "$key, $coins{$key}<br />\n"; 
} 

를 작성할 수 있도록, 해시 키의 별도의 배열을 유지 할 수 있습니다 또는 설치하고 그들이 삽입 된 순서대로 해시 요소를 유지합니다 Tie::IxHash 모듈을 사용할 수 있습니다 이

use strict; 
use warnings; 

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

print "content-type: text/html \n\n"; 

%coins = (
    Quarter => 0.25, 
    Dime => 0.10, 
    Nickel => 0.05, 
); 

while (my ($key, $value) = each %coins){ 
    print "$key, $value<br />\n"; 
} 

$coins{Penny} = .01; 
$coins{HalfDollar} = .50; 

print "<br />\n"; 
while (my ($key, $value) = each(%coins)){ 
    print "$key, $value<br />\n"; 
} 

Answer 2

기본 해시가 순서를 유지하지 않습니다 제공합니다. Tie::IxHash과 같은 모듈을 사용하여 항목이 추가 된 순서를 유지할 수 있습니다.

Answer 3

처럼 나는 Tie::IxHash를 사용할 필요없이 솔루션을 마련했다.

접근법은 해시의 key 앞에 문자/숫자를 추가하는 것입니다.

이렇게하면 keys이 sort 일 때 해시 키를 푸시 한 순서를 얻을 수 있습니다.

#!/usr/perl/bin -w  
use strict; 
use Data::Dumper; 

my %hash =(); 

my @keys = qw(one two three); 
my $count = 0; 

for(my $i=0; $i<scalar(@keys); $i++) { 
    $hash{ chr($count) . $keys[$i] } = 1; 
    $count++; 
} 

foreach my $key (sort { ord $a <=> ord $b } keys(%hash)) { 
    print substr($key, 1) . " => " . $hash{$key}. "\n"; 
}