Perl - Sort multidimensional array

Question

I have a variable that looks like this:

do {
  my $a = {
    computers => [
      {
        report_date_epoch => 1591107993595,
        serial_number => "C02YK1TAFVCF",
        username => "fake1\@example.com",
      },
      {
        report_date_epoch => 1626877069476,
        serial_number => "C03XF8AWJG5H",
        username => "fake2\@example.com",
      },
...

And I'd like to sort it by the epoch number into a new variable without the computers array.

"without the computers array." -- i don't understand? Can you show your expected output? — zdim
– zdim, Commented Jul 21, 2021 at 17:03
Don't use $a and $b; they are somewhat special and using them outside sort's compare function can cause issues. — ikegami
– ikegami, Commented Jul 22, 2021 at 3:31

zdim · Accepted Answer · 2021-07-21 17:16:10Z

5

The list of hashrefs in the arrayref for computer key sorted

use warnings;
use strict;
use feature 'say';
use Data::Dump qw(dd);

my $v = { 
    computers => [
        {
            report_date_epoch => 1591107993595,
            serial_number => "C02YK1TAFVCF",
            username => "fake1\@example.com",
        },
        {
            report_date_epoch => 1626877069476,
            serial_number => "C03XF8AWJG5H",
            username => "fake2\@example.com",
        }
    ]   
};

my @by_epoch =  
    sort { $a->{report_date_epoch} <=> $b->{report_date_epoch}  } 
    @{$v->{computers}};

dd $_ for @by_epoch;

I use Data::Dump to print complex data structures. (There are other good ones as well.)

Or use a core (installed) tool

use Data::Dumper;
...
say Dumper $_ for @by_epoch;

edited Jul 21, 2021 at 17:16

answered Jul 21, 2021 at 17:10

zdim

67.2k5 gold badges59 silver badges87 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

lordadmira Over a year ago

Data::Dump is the simplest of the various data dumpers.

ikegami · Accepted Answer · 2021-07-22 03:41:18Z

0

Sort::Key is so much cleaner than the builtin sort. Not much difference in this instance, but it only gets better as the task becomes more complex.

use Sort::Key qw( ikeysort );

my @by_report_date =
   ikeysort { $_->{report_date_epoch} }   # Sort them.
      @{ $a->{computers} };               # Get the elements of the array of computers.

edited Jul 22, 2021 at 3:41

answered Jul 22, 2021 at 3:29

ikegami

391k17 gold badges291 silver badges555 bronze badges

Collectives™ on Stack Overflow

Perl - Sort multidimensional array

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related