sort hash by value

[glenn]

I have this hash however I cannot for the life of me figure out how to apply sort to it. I have posted part of the hash but enough to make my point. I need to sort by the forth array value ie: $licensehash{CI}{CI_CTAG}[3]; Any ideas out there? Bonus: one line foreach loop.

our %licensehash = (
    CI => {
        CI_CTAG => ['','',"", "Customer Name", 1, '[^0-9a-zA-Z\-]', [@
+new_license_versions]],
        CI_CID => ['','',"", "Chassis Serial", 1, '[^0-9a-zA-Z]', [@ne
+w_license_versions]],
        CI_UID1 => ['','',"", "MAC 1/UUID", 0, '[^0-9a-zA-Z:-]', [$iTX
+_2_7_VERSION, $iTX_SBB_VERSION_val]],
        CI_UID2 => ['','',"", "MAC 2", 0, '[^0-9a-zA-Z:-]', [$iTX_2_7_
+VERSION]],
        CI_SER => ['','',"", "Lenovo Serial", 0, '[^0-9a-zA-Z]', [$iTX
+_Lenovo_VERSION_val]],
        CI_UUID => ['','',"", "Lenovo UUID", 0, '[^0-9a-zA-Z]', [$iTX_
+Lenovo_VERSION_val]],
        CI_E => ['','',"0", "Epoc", 0, '[^0-9]', [@new_license_version
+s]], #0 unlicensed, 1 first license
    },
    COM => {
        COM_PV => ['','',$iTX_SBB_VERSION_val, "iTX Version", 1, '[^0-
+9.]', [@new_license_versions]],
        COM_MV => ['','',$VERSION, "LMU Version", 0, '[^0-9.]', [@new_
+license_versions]],
        COM_KT => ['','',"MASTER", "Key Type", 0, 'MASTER', [@new_lice
+nse_versions]],
        COM_CD => ['','',sub{sprintf '%04d-%02d-%02d', $_[5]+1900, $_[
+4]+1, $_[3]}->(localtime), "Creation Date", 0, '[^0-9\-]', [@new_lice
+nse_versions]],
        COM_USER => ['','',sub{qx"echo %username%"}, "Creation User", 
+0, '[^0-9a-zA-Z\-]', [@new_license_versions]],
    },
    ISCSI => {
        ISCSI_T => ['','',"-1", "iSCSI", 1, "-1,89478485", [@new_licen
+se_versions]],
    },
    NAS => {
        NAS_T => ['','',"0", "NAS", 1, "-1,89478485", [$iTX_Lenovo_VER
+SION_val, $iTX_2_7_VERSION]],
    },
    RPL => {
        RPL_T => ['','',"-1", "Sync Replication", 1, "-1,89478485", [@
+new_license_versions]],
    },
);


#Help/fix me please
foreach my $tag (keys %licensehash) {
    foreach my $type (keys %{$licensehash{$tag}}) {
        print "$licensehash{$tag}{$type}[3]: $licensehash{$tag}{$type}
+[0]";
    }
}

[Anonymous Monk]

sort an array instead :) step 1, select values you want to keep from hash.... stuff into an array, sort the array by any value

http://learn.perl.org/faq/perlfaq4.html#How-do-I-sort-an-array-by-anything-, http://perldoc.perl.org/perlfaq4.html#How-do-I-sort-an-array-by-%28anything%29%3f

Understanding the Schwartzian transform., Re: Sorting a HoH by values of the nested hashes,

[glenn]

That would be easier except this is tied into a GUI and user values are going into array 0, old values are in array 1. I think you may have given me an answer anyhow though; flaten tag, type, and string into a 2d array then sort then use that output to order the hash output...

#head of code
my @array;
foreach my $tag (keys %licensehash) {
    foreach my $type (keys %{$licensehash{$tag}}) {
        push(@array, [$tag,$type,$licensehash{$tag}{$type}[3]]);
    }
}
@array = sort {$a->[2] cmp $b->[2]} @array;

#body of program (used more than once)
foreach my $order (@array) {
    print "$licensehash{@$order[0]}{@$order[1]}[3]";
}

[GrandFather]

You can nest maps in much the same way you can nest for loops. It's not clear that there is a win doing that here, but consider:

my @items = map {$licensehash{$_->[0]}{$_->[1]}} sort {$a->[2] cmp $b-
+>[2]}
    map {
    my $top = $_;
    map {[$top, $_, $licensehash{$top}{$_}[3]]} keys %{$licensehash{$_
+}}
    } keys %licensehash;

print "$_->[3]: $_->[0]\n" for @items;

Prints:

Chassis Serial: 
Creation Date: 
Creation User: 
Customer Name: 
Epoc: 
Key Type: 
LMU Version: 
Lenovo Serial: 
Lenovo UUID: 
MAC 1/UUID: 
MAC 2: 
NAS: 
Sync Replication: 
iSCSI: 
iTX Version:

Note that @items contains the sorted values rather than the keys which cleans up the print statement somewhat. The map just to the right of the @items assignment does the lookup.

[kcott]

G'day glenn,

Perhaps something like this. It carries the $tag and $type keys through the sorting process; this allows the %licensehash data to be recreated in the sort order you want. If this isn't what you want, please show expected output.

#!/usr/bin/env perl -l

use strict;
use warnings;

no strict 'vars';
our %licensehash = (
    CI => {
        CI_CTAG => ['','',"", "Customer Name", 1, '[^0-9a-zA-Z\-]', [@
+new_license_versions]],
        CI_CID => ['','',"", "Chassis Serial", 1, '[^0-9a-zA-Z]', [@ne
+w_license_versions]],
        CI_UID1 => ['','',"", "MAC 1/UUID", 0, '[^0-9a-zA-Z:-]', [$iTX
+_2_7_VERSION, $iTX_SBB_VERSION_val]],
        CI_UID2 => ['','',"", "MAC 2", 0, '[^0-9a-zA-Z:-]', [$iTX_2_7_
+VERSION]],
        CI_SER => ['','',"", "Lenovo Serial", 0, '[^0-9a-zA-Z]', [$iTX
+_Lenovo_VERSION_val]],
        CI_UUID => ['','',"", "Lenovo UUID", 0, '[^0-9a-zA-Z]', [$iTX_
+Lenovo_VERSION_val]],
        CI_E => ['','',"0", "Epoc", 0, '[^0-9]', [@new_license_version
+s]], #0 unlicensed, 1 first license
    },
    COM => {
        COM_PV => ['','',$iTX_SBB_VERSION_val, "iTX Version", 1, '[^0-
+9.]', [@new_license_versions]],
        COM_MV => ['','',$VERSION, "LMU Version", 0, '[^0-9.]', [@new_
+license_versions]],
        COM_KT => ['','',"MASTER", "Key Type", 0, 'MASTER', [@new_lice
+nse_versions]],
        COM_CD => ['','',sub{sprintf '%04d-%02d-%02d', $_[5]+1900, $_[
+4]+1, $_[3]}->(localtime), "Creation Date", 0, '[^0-9\-]', [@new_lice
+nse_versions]],
        COM_USER => ['','',sub{qx"echo %username%"}, "Creation User", 
+0, '[^0-9a-zA-Z\-]', [@new_license_versions]],
    },
    ISCSI => {
        ISCSI_T => ['','',"-1", "iSCSI", 1, "-1,89478485", [@new_licen
+se_versions]],
    },
    NAS => {
        NAS_T => ['','',"0", "NAS", 1, "-1,89478485", [$iTX_Lenovo_VER
+SION_val, $iTX_2_7_VERSION]],
    },
    RPL => {
        RPL_T => ['','',"-1", "Sync Replication", 1, "-1,89478485", [@
+new_license_versions]],
    },
);
use strict 'vars';

my @to_sort;

foreach my $tag (keys %licensehash) {
    foreach my $type (keys %{$licensehash{$tag}}) {
        push @to_sort, [$tag, $type, $licensehash{$tag}{$type}[3]];
    }
}   

my @sorted = sort { $a->[2] cmp $b->[2] } @to_sort;

use Data::Dump;
for (@sorted) {
    print "Sort value: $_->[2]; Tag key: $_->[0]; Type key: $_->[1]";
    dd $licensehash{$_->[0]}{$_->[1]};
}

Output:

Sort value: Chassis Serial; Tag key: CI; Type key: CI_CID
["", "", "", "Chassis Serial", 1, "[^0-9a-zA-Z]", []]

Sort value: Creation Date; Tag key: COM; Type key: COM_CD
["", "", "2014-03-25", "Creation Date", 0, "[^0-9\\-]", []]

Sort value: Creation User; Tag key: COM; Type key: COM_USER
["", "", sub { ... }, "Creation User", 0, "[^0-9a-zA-Z\\-]", []]

Sort value: Customer Name; Tag key: CI; Type key: CI_CTAG
["", "", "", "Customer Name", 1, "[^0-9a-zA-Z\\-]", []]

Sort value: Epoc; Tag key: CI; Type key: CI_E
["", "", 0, "Epoc", 0, "[^0-9]", []]

Sort value: Key Type; Tag key: COM; Type key: COM_KT
["", "", "MASTER", "Key Type", 0, "MASTER", []]

Sort value: LMU Version; Tag key: COM; Type key: COM_MV
["", "", undef, "LMU Version", 0, "[^0-9.]", []]

Sort value: Lenovo Serial; Tag key: CI; Type key: CI_SER
["", "", "", "Lenovo Serial", 0, "[^0-9a-zA-Z]", [undef]]

Sort value: Lenovo UUID; Tag key: CI; Type key: CI_UUID
["", "", "", "Lenovo UUID", 0, "[^0-9a-zA-Z]", [undef]]

Sort value: MAC 1/UUID; Tag key: CI; Type key: CI_UID1
["", "", "", "MAC 1/UUID", 0, "[^0-9a-zA-Z:-]", [undef, undef]]

Sort value: MAC 2; Tag key: CI; Type key: CI_UID2
["", "", "", "MAC 2", 0, "[^0-9a-zA-Z:-]", [undef]]

Sort value: NAS; Tag key: NAS; Type key: NAS_T
["", "", 0, "NAS", 1, "-1,89478485", [undef, undef]]

Sort value: Sync Replication; Tag key: RPL; Type key: RPL_T
["", "", -1, "Sync Replication", 1, "-1,89478485", []]

Sort value: iSCSI; Tag key: ISCSI; Type key: ISCSI_T
["", "", -1, "iSCSI", 1, "-1,89478485", []]

Sort value: iTX Version; Tag key: COM; Type key: COM_PV
["", "", undef, "iTX Version", 1, "[^0-9.]", []]