ハッシュの配列をキーでソートする Perl編

ハッシュからなる配列をキーでソートするPerlプログラムの例。

# ハッシュの配列
my @array = (
  { 'name' => 'banana', 'price' => 100 },
  { 'name' => 'strawberry', 'price' => 400 }, 
  { 'name' => 'apple', 'price' => 300 },
  { 'name' => 'orange', 'price' => 200 },
);
&display(@array);

# 文字列の比較でソートする場合
@array = sort { $a->{'name'} cmp $b->{'name'} } @array;
&display(@array);

# 数値の比較でソートする場合
@array = sort { $a->{'price'} <=> $b->{'price'} } @array;
&display(@array);

# 配列の内容を表示
sub display {
  foreach my $item (@_) {
    print("$item->{'name'} : $item->{'price'}\n");
  }
  print("\n");
}

実行結果:

banana : 100
strawberry : 400
apple : 300
orange : 200

apple : 300
banana : 100
orange : 200
strawberry : 400

banana : 100
orange : 200
apple : 300
strawberry : 400

関連記事

ハッシュの配列をキーでソートする まとめ

【theme : プログラミング
【genre : コンピュータ

プロフィール

よしいず

Author:よしいず
MATHEMATICS.PDFというウェブサイトを運営しています。

管理の都合上、トラックバックとコメントはオフにしてあります。ブログ経験者なら分かっていただけると思いますが、スパム(アダルトやその他の宣伝)ばかりなのが現実です。

リンクは自由です。当サイトの記事に対する間違いの指摘・意見・感想などを述べた記事からのリンクは歓迎です。ただし、ブログ記事アップ直後はミスが多く、頻繁に修正します。場合によっては削除する可能性もあります。その際、何も断りもなく修正・削除しますがご了承ください。内容を参考にする場合には投稿後一週間ほど様子を見てからにしてください(笑)。

記事の間違いを指摘するときは、その具体的箇所、理由(仕様に反するなど)・根拠(参考にした文献など)、代替案(同じ結果を得るための正しいやり方)も教えてください。そうしないと、(指摘される側および第三者はその時点では無知の状態なので、)どこが間違いなのか分かりませんし、本当に間違っているのかどうかが判断・検証できません。実際、間違いだと指摘されたことが結局は正しかったというケースもありますので。

このブログのタイトル一覧

リンク
月別アーカイブ
カテゴリ
最新記事
検索フォーム
RSSリンクの表示