読者です 読者をやめる 読者になる 読者になる

配列・ハッシュ・ソートメモ(Perl)

配列・ハッシュがごちゃごちゃになって意味が分からなくなる時があるので、メモしておきます。
"I Love Perl Because I Love Perl"

ソートしたいデータ構造

my $data = ();

$data -> [0] { name } = "三郎";
$data -> [0] { id } = 3;
$data -> [1] { name } = "一乃助";
$data -> [1] { id } = 1;
$data -> [2] { name } = "二子";
$data -> [2] { id } = 2;

id 順にソート

# ソートして配列に格納
my @afterSortData = sort { $a -> { id } <=> $b -> { id } }  @{ $word };

# 出力
foreach my $hash (@afterSortData) {
    printf ( "%s %s\n", $hash -> { id }, $hash -> { name } );
}

出力結果

1 一乃助
2 ニ子
3 三郎

今日やったこと

その他

夜予定があり、帰ってきてすぐ寝てしまうかもしれないので早めに更新しておきます。
この時間帯の更新はなんだかむずむずします。