Question

我有一个包含哈希的数组referance（即@AOH）

$arr_ref = [ { 'brand' => 'A',
               'supplier' => 'X',
               'PO' => '2'
              },
              { 'brand' => 'B',
                'supplier' => 'Y',
                'PO' => '1'       
              },
              { 'brand' => 'B',
                'supplier' => 'X',
                'PO' => '2'           
              },
              { 'brand' => 'A',
                'supplier' => 'X',
                'PO' => '1'
              },
              { 'brand' => 'B',
                'supplier' => 'X',
                'PO' => '1'           
              }
];

我想根据所有三个键（即品牌，供应商和采购订单）对其进行排序。排序顺序应该是品牌优先，然后是供应商，最后是PO。

排序后的数组referance应为：

$arr_ref = [ { 'brand' => 'A',
                'supplier' => 'X',
                'PO' => '1'
              },
              { 'brand' => 'A',
               'supplier' => 'X',
               'PO' => '2'
              },
              { 'brand' => 'B',
                'supplier' => 'X',
                'PO' => '1'           
              },
              { 'brand' => 'B',
                'supplier' => 'X',
                'PO' => '2'           
              },              
              { 'brand' => 'B',
                'supplier' => 'Y',
                'PO' => '1'       
              },
];

Answer 1

由于<=> and cmp返回0表示相等，而且为false，并且因为Perl的逻辑布尔运算符返回决定值而不是0或1，所以按多个键排序就像将多个比较串起来一样简单{ {1}}或or：

||

我假设PO是一个数字字段，因此您使用@$arr_ref = sort { $a->{brand} cmp $b->{brand} or $a->{supplier} cmp $b->{supplier} or $a->{PO} <=> $b->{PO} } @$arr_ref;代替<=>。

Answer 2

以下内容应对数组引用进行排序，并将数组放回$arr_ref：

$arr_ref = [sort by_brand_supplier_PO @$arr_ref];

sub by_brand_supplier_PO {
    $a->{brand} cmp $b->{brand} ||
    $a->{supplier} cmp $b->{supplier} ||
    $a->{PO} <=> $b->{PO}
}

Answer 3

您可以使用Sort::Key::Multi，与Sort :: Key一起发布。

在这种情况下，我们使用ssikeysort，它需要一个返回字符串，字符串和整数的块，并按该元组对值进行排序。（s中的ssi代表字符串，i代表整数。）

use Sort::Key::Multi qw(ssikeysort);

@$arr_ref = ssikeysort { $_->{brand}, $_->{supplier}, $_->{PO} } @$arr_ref;

您还可以使用使用较少内存的就地变体：

use Sort::Key::Multi qw(ssikeysort_inplace);

ssikeysort_inplace { $_->{brand}, $_->{supplier}, $_->{PO} } @$arr_ref;

通过多个键Perl对哈希数组进行排序

3 个答案: