Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks, I have the following code: 

my %HoH = (
       H => {
            134 => "A",
            98 => "P",
            1 => "A",
            97 => "L",
            23 => "G",
            70 => "S",
            77 => "M",
            90 => "T",
            53 => "E",
            83 => "A",
            78 => "Y",
            24 => "D",
            138 => "L",
            60 => "R",
            120 => "L",
            67 => "F",
            84 => "A",
            113 => "Q",
            68 => "D",
            0 => "M",
            115 => "Q",
            54 => "M",
            46 => "E",
            62 => "A",
            59 => "V",
            100 => "V",
            89 => "T",
            75 => "Q",
            142 => "I",
            95 => "L",
            41 => "D",
            117 => "R",
            29 => "E",
            72 => "F",
            65 => "A",
            31 => "E",
            36 => "D",
            132 => "P",
            136 => "P",
            92 => "F",
            69 => "L",
            52 => "T",
            102 => "E",
            106 => "L",
            82 => "R",
            140 => "G",
            124 => "N",
            22 => "K",
            79 => "R",
            85 => "L",
            16 => "D",
            55 => "F",
            119 => "I",
            128 => "S",
            11 => "E",
            25 => "A",
            99 => "V",
            130 => "G",
            94 => "I",
            63 => "A",
            108 => "M",
            74 => "A",
            3 => "A",
            4 => "V",
            28 => "P",
            80 => "F",
            111 => "Q",
            50 => "G",
            93 => "M",
            126 => "G",
            122 => "G",
            27 => "K",
            73 => "V",
            88 => "G",
            57 => "E",
            87 => "I",
            64 => "G",
            58 => "R",
            104 => "E",
            141 => "K",
            127 => "L",
            105 => "K",
            42 => "E",
            66 => "T",
            103 => "T",
            61 => "S",
            35 => "D",
            91 => "S",
            45 => "S",
            19 => "L",
            76 => "K",
            131 => "M",
            32 => "L",
            96 => "V",
            71 => "L",
            37 => "D",
            38 => "E",
            14 => "S",
            30 => "E",
            40 => "L",
            125 => "T",
            123 => "P",
            8 => "G",
            139 => "P",
            5 => "A",
            107 => "Q",
            48 => "L",
            110 => "Q",
            2 => "A",
            13 => "Q",
            47 => "R",
            10 => "G",
            7 => "A",
            34 => "E",
            137 => "S",
            9 => "A",
            18 => "L",
            109 => "E",
            17 => "E",
            43 => "T",
            33 => "E",
            6 => "A",
            112 => "Q",
            116 => "Q",
            44 => "L",
            121 => "L",
            15 => "P",
            86 => "W",
            21 => "P",
            114 => "L",
            56 => "P",
            49 => "W",
            101 => "F",
            81 => "S",
            26 => "E",
            51 => "L",
            12 => "P",
            118 => "Q",
            129 => "G",
            133 => "G",
            135 => "L",
            39 => "E"
       },

       B     => {
        268 => "A",
        300 => "S",
        172 => "L",
        186 => "V",
        119 => "V",
        99 => "E",
        214 => "S",
        11 => "P",
        128 => "N",
        281 => "Q",
        188 => "W",
        221 => "Y",
        94 => "F",
        212 => "V",
        3 => "N",
        266 => "G",
        93 => "L",
        50 => "T",
        27 => "P",
        126 => "E",
        174 => "S",
        315 => "K",
        80 => "P",
        279 => "S",
        161 => "N",
        70 => "E",
        1 => "M",
        207 => "N",
        361 => "G",
        115 => "V",
        68 => "A",
        326 => "A",
        46 => "A",
        100 => "G",
        62 => "T",
        95 => "P",
        328 => "L",
        31 => "S",
        275 => "Y",
        203 => "V",
        319 => "D",
        189 => "Q",
        222 => "L",
        284 => "V",
        290 => "A",
        137 => "G",
        211 => "L",
        353 => "Q",
        18 => "P",
        6 => "A",
        193 => "E",
        162 => "A",
        147 => "F",
        325 => "G",
        278 => "A",
        116 => "N",
        230 => "A",
        269 => "G",
        171 => "G",
        197 => "S",
        143 => "P",
        164 => "V",
        26 => "P",
        118 => "T",
        276 => "H",
        12 => "A",
        282 => "L",
        224 => "S",
        240 => "R",
        133 => "V",
        129 => "Y",
        357 => "G",
        343 => "A",
        61 => "A",
        185 => "F",
        157 => "S",
        329 => "E",
        333 => "P",
        32 => "P",
        318 => "V",
        153 => "D",
        38 => "P",
        337 => "L",
        265 => "L",
        316 => "G",
        125 => "G",
        347 => "H",
        47 => "G",
        250 => "L",
        346 => "N",
        69 => "A",
        102 => "K",
        317 => "S",
        158 => "G",
        336 => "P",
        156 => "N",
        348 => "R",
        63 => "A",
        209 => "D",
        251 => "A",
        313 => "L",
        64 => "S",
        87 => "H",
        338 => "T",
        104 => "T",
        20 => "P",
        57 => "T",
        291 => "S",
        148 => "P",
        210 => "V",
        277 => "K",
        98 => "M",
        356 => "F",
        77 => "L",
        196 => "G",
        304 => "Q",
        138 => "T",
        113 => "F",
        358 => "L",
        117 => "H",
        302 => "G",
        170 => "P",
        231 => "L",
        146 => "A",
        65 => "A",
        273 => "T",
        136 => "V",
        205 => "L",
        92 => "E",
        241 => "P",
        198 => "D",
        34 => "G",
        349 => "K",
        355 => "G",
        9 => "S",
        208 => "P",
        195 => "R",
        33 => "P",
        323 => "I",
        339 => "L",
        360 => "I",
        252 => "G",
        56 => "R",
        254 => "Y",
        15 => "P",
        86 => "C",
        327 => "T",
        159 => "S",
        145 => "E",
        101 => "V",
        206 => "G",
        135 => "Y",
        39 => "P",
        301 => "F",
        232 => "G",
        345 => "L",
        359 => "T",
        127 => "S",
        35 => "F",
        183 => "S",
        335 => "L",
        19 => "A",
        76 => "C",
        91 => "K",
        280 => "D",
        294 => "M",
        242 => "G",
        267 => "Q",
        199 => "F",
        155 => "D",
        149 => "V",
        263 => "V",
        220 => "H",
        244 => "E",
        292 => "T",
        14 => "P",
        40 => "L",
        160 => "L",
        139 => "K",
        123 => "T",
        13 => "G",
        187 => "N",
        234 => "E",
        229 => "L",
        233 => "G",
        22 => "L",
        218 => "V",
        176 => "M",
        140 => "Q",
        182 => "Q",
        124 => "I",
        264 => "T",
        243 => "E",
        55 => "E",
        85 => "E",
        79 => "N",
        16 => "P",
        271 => "H",
        130 => "H",
        169 => "G",
        297 => "T",
        247 => "V",
        178 => "I",
        216 => "I",
        74 => "C",
        350 => "N",
        262 => "T",
        293 => "R",
        190 => "V",
        184 => "K",
        122 => "S",
        28 => "P",
        4 => "V",
        111 => "N",
        237 => "Y",
        289 => "E",
        73 => "A",
        150 => "L",
        83 => "F",
        225 => "I",
        53 => "S",
        90 => "C",
        165 => "I",
        311 => "N",
        54 => "S",
        253 => "K",
        322 => "W",
        84 => "E",
        67 => "G",
        324 => "V",
        75 => "G",
        89 => "K",
        340 => "A",
        59 => "G",
        257 => "N",
        41 => "G",
        285 => "G",
        330 => "K",
        36 => "T",
        261 => "A",
        179 => "Q",
        226 => "T",
        17 => "P",
        274 => "Y",
        166 => "H",
        121 => "L",
        288 => "F",
        307 => "L",
        112 => "H",
        114 => "Q",
        181 => "Q",
        228 => "C",
        21 => "A",
        219 => "A",
        303 => "Y",
        272 => "A",
        286 => "V",
        168 => "L",
        42 => "G",
        103 => "L",
        66 => "S",
        175 => "K",
        314 => "F",
        200 => "T",
        215 => "G",
        37 => "L",
        312 => "L",
        107 => "K",
        321 => "N",
        2 => "G",
        48 => "T",
        342 => "G",
        82 => "T",
        52 => "R",
        235 => "L",
        106 => "N",
        245 => "G",
        259 => "W",
        201 => "A",
        332 => "L",
        154 => "M",
        25 => "L",
        152 => "G",
        108 => "G",
        334 => "P",
        295 => "Q",
        58 => "P",
        320 => "S",
        344 => "F",
        88 => "R",
        287 => "E",
        97 => "Q",
        23 => "V",
        134 => "T",
        308 => "P",
        352 => "F",
        78 => "P",
        223 => "Q",
        260 => "L",
        239 => "R",
        192 => "G",
        144 => "T",
        120 => "A",
        163 => "Q",
        60 => "A",
        24 => "G",
        249 => "S",
        255 => "T",
        167 => "Q",
        299 => "V",
        306 => "D",
        29 => "P",
        194 => "Y",
        142 => "S",
        180 => "T",
        283 => "Q",
        72 => "G",
        354 => "C",
        132 => "G",
        227 => "P",
        204 => "T",
        7 => "A",
        10 => "P",
        109 => "L",
        43 => "S",
        151 => "V",
        310 => "A",
        256 => "L",
        44 => "L",
        49 => "S",
        341 => "L",
        51 => "S",
        81 => "G",
        305 => "L",
        258 => "N",
        202 => "A",
        331 => "K",
        105 => "V",
        236 => "V",
        298 => "S",
        141 => "L",
        173 => "R",
        131 => "F",
        270 => "M",
        217 => "L",
        246 => "T",
        45 => "G",
        71 => "D",
        96 => "I",
        351 => "K",
        213 => "G",
        309 => "K",
        30 => "P",
        296 => "D",
        238 => "H",
        5 => "L",
        8 => "S",
        248 => "M",
        191 => "D",
        177 => "A",
        110 => "S"
       },
);

foreach my $id ( sort keys %HoH ) {
    print ">$id: \n";
    for my $pos (  sort { $HoH{$a} <=> $HoH{$b} } keys $HoH{$id}->%* )
+ {
        print "$pos:$HoH{$id}{$pos}\n";
    }
    print "\n";
}

[download]


and I can't find the correct command to sort my HoH based on the $pos variable ( = basically, it sorts it, but in the 1,100,1000 etc fashion, not 1,2,3). Can you please help me correct my mistake?

Replies are listed 'Best First'.
Re: Please correct my sorting in this HoA
by Anonymous Monk on Oct 16, 2022 at 23:54 UTC
    Sorry, I obviously have a HoH and not HoA as I erroneously state in my title :)
[reply]
      Found it: 
      foreach my $id ( sort keys %HoH ) {
    print ">$id: \n";
    for my $pos (  sort { $a <=> $b } keys $HoH{$id}->%* ) {
        print "$pos:$HoH{$id}{$pos}\n";
    }
    print "\n";

      [download]
[reply]
[d/l]
        Your syntax looks a bit odd to me. I would code thusly (as personal preference):

        foreach my $id ( sort keys %HoH ) {
    print ">$id: \n";
    
    
    for my $pos (  sort { $a <=> $b } keys %{$HoH{$id}} ) {  
        print "$pos:$HoH{$id}{$pos}\n";
    }
    print "\n";
}

        [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom