in reply to Sorting Hash / Array
Here's one way of doing it.
#!/usr/bin/env perl use strict; use warnings; my $VAR1 = { '127' => { 'network' => '10.182.48.0/24', 'VLAN' => '3509' }, '32' => { 'network' => '10.182.12.0/25', 'VLAN' => '2121' }, '90' => { 'network' => '10.183.243.128/25', 'VLAN' => '3494' } }; my @sorted_keys = sort { $VAR1->{$a}{network} cmp $VAR1->{$b}{network} } keys %$VA +R1; print qq{Key\tNetwork\t\t\tVLAN\n}; for my $key (@sorted_keys) { print qq{$key\t}, $VAR1->{$key}{network}, qq{\t\t}, $VAR1->{$key}{VLAN}, qq{\n}; }
Here's the output:
$ pm_sort_hash_array.pl Key Network VLAN 32 10.182.12.0/25 2121 127 10.182.48.0/24 3509 90 10.183.243.128/25 3494
-- Ken
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Sorting Hash / Array
by johngg (Canon) on May 16, 2012 at 20:05 UTC |
In Section
Seekers of Perl Wisdom