in reply to Hash Order

Assume: 'Number' always exists, and the order of the rest of the keys do not matter. 

my %hash = (
  EX => 'ArraySite',
  AM => 'IOPort',
  PLE => 'AddressGroup',
  Number => '11',
);
for my $key ( 'Number', (grep {$_ ne 'Number'} keys %hash) ) {
  my $value = $hash{$key};
  print "$key => $value\n";
}

[download]

--MidLifeXis

Replies are listed 'Best First'.
Re^2: Hash Order
by bart (Canon) on Nov 18, 2008 at 10:21 UTC
    Combining this with other code from perlfaq4 (maybe just a previous version; see `perldoc -q duplicate`): 
    my %seen;
for my $key ( 'Number', keys %hash) ) { 
    next if $seen{$key}++;
    my $value = $hash{$key};
    print "$key => $value\n";
}

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom