配列のソートがうまくいきません

CGI-BBS > ＣＧＩ > Perl > 配列のソートがうまくいきません

質問者 tom 投稿日 3/14(木) 01:02:55

複数の行からなる配列を特定のキーでソートしたいのですがうまくいきません。
例として下の hairetu.dat の[0]列の[2]、順番でいえば3番目のえ・い・う・あ・お
でソートしたいのですがうまくいきません。

２つの方法で試みてみました。
①配列の入れ替えで使う @line[0,2] = @line[2,0] を利用して

    foreach $line (@LIST){
      $line[0,2] = $line[2,0];
      push(@NEW_LIST,$line);
    }
    @NEW_LIST = sort ({ $a cmp $b }@NEW_LIST)

うまくゆきませんでした。

②次にらくだ本でみつけた「配列を加工したキーでソートする」
　を利用してスクリプトを書きましたがうまくいきません。

みなさんは複行配列のソートはどうされているのでしょうか
お教えいただけませんでしょうか。どつぼにはまっています。

########## hairetu.dat ##########

bbbb,1,え,C,
aa,5,い,B,
ccccc,3,う,A,
ddd,2,あ,E,
e,9,お,D,

###############################################################################
#!/usr/local/bin/perl

    if(open(IN,"./hairetu.dat")){ @LIST = <IN>; close(IN); }

    print "Content-type: text/html\n\n";
    print "<html><head>\n";
    print "<title></title>\n";
    print "</head><body>\n";

    ####################

    print "<br><br><br><center><table border=2 cellpadding=5>\n";
    print "<tr bgcolor=#000000><th colspan=4><font color=#ffffff>データのソ\ート</font></th></tr>\n";
    print "<tr><td>英小</td><td>数字</td><td>漢字</td><td>英大</td></tr>\n";

    ########## sort ##########

    local(@data);
    foreach (@LIST){
      push(@data,(split(/\,/))[2]);
    }
    sub hikaku {
      $data{$a} cmp $data{$b};
    }
    @NEW_LIST = @LIST [ sort hikaku $[..$#LIST];

    ##########

    foreach $line (@NEW_LIST){
      ($a_no,$b_no,$c_no,$d_no,) = split(/\,/,$line);
    print "<tr><td>$a_no</td><td>$b_no</td><td>$c_no</td><td>$d_no</td></tr>\n";
    }
    print "</table></center>\n";
    print "</body></html>\n";
    exit;

###############################################################################
1;

回答者 今夜がやすだ [削除] 投稿日 3/14(木) 06:48:29

うまく2次元配列を作ってやると分りやすくなると思います。
わたしならリファレンスと2次元配列で、

@NEW_LIST = map{join',',@$_}sort{$a->[2] cmp $b->[2]}map{[split',']}@LIST;

と一行でsortさせます。

回答者 しあわせのツボ [削除] 投稿日 3/16(土) 16:25:12

ちゃんとsort関数が使えますよ。
http://www.rescue.ne.jp/CGI-BBS/database/database/20010910002311.shtml

回答者 まさ [削除] 投稿日 3/16(土) 20:26:28

今夜がやすださんの方法はSchwartzian Transformと呼ばれているものですね。

確かにそれが一番簡単な方法だと思います。

Schwartzian Transformは、無名配列を使うことによって中間データを保持するため作業用
の配列を特別に用意する必要がない、すべての処理を簡潔に記述することができるといった
特徴があります。しかし、無名配列を使用しているために、無名配列から要素を取り出すと
いうオーバーヘッドが生じてしまいます。このため、次のように作業用の配列を用意して行
なう方法の方が実行速度が速いです。

@tmp = map {(split /,/)[2]} @LIST;
@LIST = @LIST[sort {$tmp[$a] cmp $tmp[$b]} 0 .. $#tmp];

これは添え字をもとに配列スライスで@LISTからリスト値を取り出すことでソートしています。

データが多くなるとわたしはこちらの方がいいと思いますけど。

回答者 今夜がやすだ [削除] 投稿日 3/17(日) 08:24:07

まささんご指摘ありがとうございます。
確かにSchwartzian Transformは実行効率は良くないようですね。
適当な巨大な配列にBenchmarkをかけてみると確かに上のsortingとの実行速度の違いがよくわかります。(^^;
Shwartzian変換に名無し配列から要素を取り出すというオーバーヘッドがあるとのこと肝に銘じておきます。

質問者 tom [削除] 投稿日 3/19(火) 03:27:47

たくさんのヒントと実用例有り難うございました。
すべとの例題を利用させていただきまして、
よいプログラムを完成させようと思います。

このページは終了したので返信(回答)は書きこめません

Ｗｅｂ裏技