PHPのarray_multisort関数をPerlで

PHPのarray_multisort関数が激便利だったので紹介 : akiyan.com

書いてみた。

my @sales = (
  {
    'title' => 'ほげほげ１',
    'amount' => 3,
  },
  {
    'title' => 'ほげほげ２',
    'amount' => 2,
  },
  {
    'title' => 'ほげほげ３',
    'amount' => 5,
  },
);

my @result =  sort { $b->{amount} <=> $a->{amount} } @sales;

やっぱPerlのsort関数は便利だね。柔軟だし好きだなぁ。