- Perl初心者スレ（マジレス回答）
469 ：デフォルトの名無しさん[sage]：2018/11/22(木) 10:30:19.76 ID:Enb78Zev - これでいけると思いましたが、玉砕でしたｗ
foreach my $row (@$table){
while (my ($id, $count, $name) = each(%row)){
print encode('cp932', "$id\t$count\t$name\n");
}
| - Perl初心者スレ（マジレス回答）
471 ：デフォルトの名無しさん[sage]：2018/11/22(木) 11:07:56.03 ID:Enb78Zev - これで全てのハッシュ要素を出力できますが、
カラム順が不確定になってしまいますね。
ハッシュなので仕方ないことですかね。
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
出力完了
|
|