配列・ハッシュ・ソートメモ(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 三郎
今日やったこと
- 研究関連
- Googleリーダー登録記事消化
その他
夜予定があり、帰ってきてすぐ寝てしまうかもしれないので早めに更新しておきます。
この時間帯の更新はなんだかむずむずします。