２次元ハッシュ または ２次元配列をソートしたい

質問

２次元ハッシュのソートをしたいです。
ハッシュは２つのキーを使用していて、
１つ目のキーは文字列、２つ目のキーは数字（０からの連番）です。
ハッシュの中身は文字列が入っています。

これを次のような表に見立てて、特定の列でソートしたいのです。
hash['a']['0'], hash['a']['1'], ..., hash['a']['50'],
hash['q']['0'], hash['q']['1'], ..., hash['q']['50'],
hash['c']['0'], hash['c']['1'], ..., hash['c']['50'],
...
hash['d']['0'], hash['d']['1'], ..., hash['d']['50'],
例えば 6列目の値によってソートするということです。
以下のようにソートしようとしましたが、うまくいきません。
my @sorthash = sort { $a->[6] <=> $b->[6] } @hash;

何かヒントがあれば教えてください。

回答No.2

taknak08

Wernerさんが指摘されているとおり、Perlの文法に誤りがあるようですので、まずは入門書から紐解かれるとよいと思います。
（PHPご出身でしょうか？ PHPとPerlはどちらも「$」や「[...]」を用いており、ぱっと見は似てはいますが、実際はかなり異なる言語です。）

「１つ目のキーは文字列、２つ目のキーは数字（０からの連番）です。
　ハッシュの中身は文字列が入っています。」
をそのままPerlで書くと、下記のようになるでしょうか。
my %hash = (
'a' => ['aiueo', 'kakiku', 'sasisu'],
'q' => ['zzzzz', 'yyyyyy', 'xxxxxx'],
'd' => ['a0123', 'b98765', 'c77777'],
);

Perlでは、ハッシュに順番はありませんので、「%hashの中身を直接並び替える」ということはできません。
しかし「$hash{'...'}[1]='xxx' のように２列目(←１列目を[0]と数えています)の値（＝この場合は'xxx'）の大小で並び替えた%hashのキー一覧（＝この場合は'...'の一覧リスト）を取り出す」ということはできます。
一度下記のコードをお試しください。

use strict;

my %hash = (
'a' => ['aiueo', 'kakiku', 'sasisu'],
'q' => ['zzzzz', 'yyyyyy', 'xxxxxx'],
'd' => ['a0123', 'b98765', 'c77777'],
);

print "hash{'q'}[1] is '", $hash{'q'}[1], "'.\n\n"; # yyyyy

print "Sorted by the string of 2nd column:\n";
my @sorted_key = sort { $hash{$a}[1] cmp $hash{$b}[1] } keys %hash;
for my $sorted_key (@sorted_key) {
print "hash{'", $sorted_key, "'}: ";
for (my $i = 0; $i < 3; ++$i) {
print "[", $hash{$sorted_key}[$i], "]";
}
print "\n";
}

お礼

最初の質問で、ハッシュと書きながら配列表記にしてしまったのは
混乱を招いたようで、失礼しました。
ただ、perl の文法の誤りはどこにあるのか分からないので、教えていただけないでしょうか。

$i が0,1,2,3,... のような整数値の場合にも、$hash{$i} のようなハッシュって使えますよね？
ですから、前のソースで書いている表記 $csv_data{$name}{$i} のような
書き方も文法上の誤りはないと思うのですが・・・。
実際のところ、ソート以外の部分はちゃんと動作してましたし。
２変数のハッシュとして書けば $csv_data{$name}{$i} となり、
２次元のハッシュ配列（なんていうの？）として書けば、
taknak08様の指摘するような $csv_data{$name}[$i] となるだけの違いかと・・・。
確かに、今回の条件では taknak08様の方法の方が適切ではありますが、
文法上はどちらも正しいのでは？？

私の認識違いでしたら、教えてください。

さて、実際のところは、配列を格納したハッシュにするのが一番適切かと思い、修正してみました。
補足のソースで一応動作しています。
ただ、ソートするとデータが１件（１行）だけ失われます。
元のcsvでカラム名に使われていた行なのですが・・・。
ソートせずに出力すると、ちゃんと出力されます。
（当然、先頭ではない行に出力されてしまいますが）

なんとか修正したいのですが、原因が分かりません。
何か分かれば教えていただけないでしょうか？

補足

open(DATA, '<', $csv_file) or die "csv file does not exist.";
while (my $line = <DATA>) {
$line .= <DATA> while ($line =~ tr/"// % 2 and !eof(DATA));

$line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
my @values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_}
($line =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
@{$content{$values[6]}} = @values;
}
close(DATA);

# ソートしない場合には、カラム名の行も出力されますが、
# ソートするとカラム名の行が出力されません。
#my @sorted_keys = keys( %content );
my @sorted_keys = sort { $a cmp $b } keys( %content );

open(OUT, '>'. "$new_csv_file");
for (my $i = 0; $i < $#sorted_keys; $i++) {
my $line = join ',', map {(s/"/""/g or /[\r\n,]/) ? qq("$_") : $_} @{$content{$sorted_keys[$i]}};
print OUT $line,"\n";
}
close(OUT);