I'm trying to sort the hash by its 'oid' key, any suggestions? will perls sort handle the oid string as a numerical comparison?$VAR1 = '# clusterXWLBSTrapApplicationFail'; $VAR2 = { 'varbinds' => [ '1.3.6.1.4.1.1302.3.7.2.17(1,0)\\:# clxTrapD +ataWLBSClusterName', '1.3.6.1.4.1.1302.3.7.2.16(2,0)\\:# clxTrapD +ataWLBSNodeName', '1.3.6.1.4.1.1302.3.7.2.20(3,0)\\:# clxTrapD +ataApplicationName', '1.3.6.1.4.1.1302.3.7.2.21(4,0)\\:# clxTrapD +ataApplicationFailure', '1.3.6.1.4.1.1302.3.7.2.22(5,0):# clxTrapDat +aApplicationAction' ], 'oid' => '1.3.6.1.4.1.1302.3.7.6.10' }; $VAR3 = '# clusterXTrapNormalCSLog'; $VAR4 = { 'varbinds' => [ '1.3.6.1.4.1.1302.3.7.2.8(1,0)\\:# clxTrapEv +entDate', '1.3.6.1.4.1.1302.3.7.2.9(2,0)\\:# clxTrapEv +entTime', '1.3.6.1.4.1.1302.3.7.2.10(3,0)\\:# clxTrapE +ventSource', '1.3.6.1.4.1.1302.3.7.2.11(4,0)\\:# clxTrapE +ventCategory', '1.3.6.1.4.1.1302.3.7.2.12(5,0)\\:# clxTrapE +ventID', '1.3.6.1.4.1.1302.3.7.2.13(6,0)\\:# clxTrapE +ventUser', '1.3.6.1.4.1.1302.3.7.2.14(7,0):# clxTrapEve +ntComputer' ], 'oid' => '1.3.6.1.4.1.1302.3.7.6.7' };
In reply to sort hash by value by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |