in reply to sort an array of hashes by value

You have a list of items that are both ordered and unordered with respect to each other, and you want to sort this list to an ordered list. The definition of "ordered" is that the value of an item's  number key exists as a key in the  %ranking hash.

Sorting ordered and | ordered items that are promiscuously mingled with unordered items is tricky. I think I would approach the problem in two steps: first, extract and sort all "ordered" (per the definition above) items; second, tack all the unordered items on to the end of the sorted list.

c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le "my @food = ( { name => 'apple', number => 1 }, { name => 'banana', number => 2 }, { name => 'orange', number => 5 }, { name => 'broccoli', number => 9 }, { name => 'grape', number => 10 }, { name => 'kale', number => 8 }, { name => 'lemon', number => 5 }, ); ;; my %ranking = ( 1 => 0, 2 => 1, 5 => 2, 10 => 3, ); ;; my @ordered_then_unordered = sort { $ranking{$a->{number}} <=> $ranking{$b->{number}} } grep { exists $ranking{$_->{number}} } @food ; push @ordered_then_unordered, grep { ! exists $ranking{$_->{number}} } @food ; ;; dd \@ordered_then_unordered; " [ { name => "apple", number => 1 }, { name => "banana", number => 2 }, { name => "orange", number => 5 }, { name => "lemon", number => 5 }, { name => "grape", number => 10 }, { name => "broccoli", number => 9 }, { name => "kale", number => 8 }, ]


Give a man a fish:  <%-{-{-{-<

Replies are listed 'Best First'.
Re^2: sort an array of hashes by value
by micmac (Acolyte) on Jul 14, 2016 at 20:46 UTC
    Very interesting approach - good ideas. Thanks for thinking about my problem.