Re: Hash of Arrays Sorting Problem

[kabel]

perhaps this gets you started:

use strict;
use warnings;

my %hash = (
    sorter1 => {
        domain1 => [
            123,
            124,
            112,
            110,
        ],
    },
);
        

foreach my $sorter (keys %hash) {
    print "\n\nSORTER=$sorter";
    foreach my $domain (keys %{$hash{$sorter}}) {
        
        my $current = 0;
        my $show_max = 2;
        foreach my $time  (reverse sort @{$hash{$sorter}{$domain}}) {
            print "\nDomain=$domain, Time=$time";
            (++ $current >= $show_max) and last;
        }
    }
}

always use strict and warnings. you can dump arbitrary data structures with the Data::Dumper module.

use Data::Dumper;
print Dumper \%hash;

[Anonymous Monk]

The problem I run into with this approach is the times are sorted by domain. When the domain changes, the time sorting starts all over again. In other words, output could be as follows:

Sorter=John.Doe
Domain=domain1.com, Time=1000
Domain=domain1.com, Time=1001
Domain=domain1.com, Time=1003
Domain=domain2.com, Time=1002
Domain=domain2.com, Time=1003

I need all domains sorted according to ascending time

[kabel]

sorry, i had an incorrect understanding about your question.
done better below.