データファイルのソート方法について

質問

perlで使用している、データファイルのソート方法について質問いたします。

やりたいこと。
1.ファイルを読み込み
2.指定されている文字列でソートをして
3.同じファイルに格納する

以上になります。

以下のファイルにデーターが入ってます・
namedata.cgi
田中,4
佐藤,2
鈴木,1
水野,3

このファイルをソートして以下のように並び替えて保存したいと思ってます。

スクリプトを実行後
namedata.cgi
鈴木,1
佐藤,2
水野,3
田中,4
となっていてほしいのです。

スクリプト

sort.cgi
略・・・
#ふぁいる読み込み
open(DB,"<$file") || &error("Can't write $file");
flock(DB, 1);
@lines = <DB>;
close(DB);
#ソート
@result = sort { $a <=> $b } @lines;
#ファイル書き込み
open(DB,">$file") || &error("Can't write $file");
flock(DB, 2);
print DB "@result";
close(DB);

ファイルの2項目目が分からないからソートされていないような気がするのですが、記述方法がわかりません。

ファイル読み込み時にforeachを使用して読み込まないとだけなのでしょうか?

うまく説明できていないかもしれませんが、よろしくお願いいたします。

回答No.1

sakusaker7 · ベストアンサー

>@result = sort { $a <=> $b } @lines;
これでは行を丸ごと、しかも数値として解釈して比較するのでうまくいく道理はないですね。
行のデータから数値を切り出して、それを使ってソートをしないといけません。

たとえばこんな感じ。

use strict;
use warnings;
use feature ':5.10';

my $file = 'input.txt';

open my $ifh, '<', $file or &error("Can't oepn $file");
my @lines = <$ifh>;
close $ifh;

say @lines;

my @sorted = map { $_->[1] }
sort { $a->[0] <=> $b->[0]}
map { [(split q{,}, $_)[1], $_] }
@lines;

say @sorted;

input.txtの内容が
田中,4
佐藤,2
鈴木,1
水野,3

とすると実行結果はこうなります

田中,4
佐藤,2
鈴木,1
水野,3

鈴木,1
佐藤,2
水野,3
田中,4

シュオーツ変換とかいうキーワードで検索してみてください。
あるいは親切な回答者が解説してくれるでしょう。

お礼

sakusaker7さん

回答ありがとうございます。
早速試そうと思ったのですが、私の使用しているサーバーはperlが5.8.8でした。
sayは、5.10以降でないと使用できないのですよね?
調べたらそんなことが書いてあったので。
その場合他の方法はあるのでしょうか?
お手数かけます。

回答No.2

sakusaker7

出力するところなんて質問のポイントとは関係ないところじゃないですか。

print @sorted, "\n";

とでもしてください。

お礼

sakusaker7さん
回答ありがとうございます。
>出力するところなんて質問のポイントとは関係ないところじゃないですか。
申し訳ございません。そうなんですね。
よく調べなくて申し訳ございませんでした。

早速やってみました!!
バッチリです!!綺麗にソート出来ました。
これで作業が先に進みます。
助かりました。ありがとうございます。