Perl初心者スレ（マジレス回答） (523ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

471(2): デフォルトの名無しさん [sage] 2018/11/22(木)11:07 ID:Enb78Zev(2/2)
これで全てのハッシュ要素を出力できますが、
カラム順が不確定になってしまいますね。
ハッシュなので仕方ないことですかね。

foreach $row (sort keys %table) {
　foreach $col (sort keys %{$table{$row}}) {
　print encode('cp932', "$table{$row}{$col}\t");
}
print "\n";
}
>hash_test.pl
1 10 テスト1
2 5 テスト2
読込完了
5 2 テスト2
10 1 テスト1
出力完了

---

472(1): デフォルトの名無しさん [] 2018/11/22(木)12:53 ID:+z2Jd1go(1)
>>471
キーだけ別の配列に取っといてそれ使えば？

---

475: デフォルトの名無しさん [sage] 2018/11/26(月)04:07 ID:LFi/GsCA(1)
>>471
foreach $col (sort keys %{$table{$row}}) {
を
foreach $col (qw/id count name/) {
とかでは? keyの名前も順番も分かってるんだし。

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.020s