フォームに入力された内容で並び替えをする

質問

Perl初心者です。

現在、フォームに入力された内容で、テキストデータを並び替えて保存するスクリプトを作成しています。

name1,add1,tel1,mail1,comment1　改行↓
name2,add2,tel2,mail2,comment2　改行↓

一行が上記の形式でCSV形式で保存されたデータがあります。
データの並び替えフォームで、データの並び順変更のテキストフォームを表示し、入力した数字順にソートをかけたいと考えております。

$FORM{'num1'}→name1の行
$FORM{'num2'}→name2の行

これで、$FORM{'num1'}に2、$FORM{'num2'}に1となっていた場合、保存されたデータは

name2,add2,tel2,mail2,comment2　改行↓
name1,add1,tel1,mail1,comment1　改行↓

上記のように、変更して保存したいと考えておりますが、ぜんぜんうまくいきません。

データの項目は、data6やdata7といった形で将来データ項目が後ろに増える可能性がありますので、それにも対応したいと考えていますが、データファイルの中に番号データを記録せずに、データの並び替えをすることは可能でしょうか？

ご存じの方がおられましたらお教え下さい。

宜しく御願い致します<(_ _)>

回答No.1

osamuy · ベストアンサー

・連想配列%FORMのキーは “num＜数字＞”
・＜数字＞はCSVファイルの該当レコードがある行番号を表す。
・$FORM{“num＜数字＞”}の値の順序の順序で出力

――ってのが、仕様なら、こんなロジックでどうでしょう：

my %CSV; my $lino = 0;
while ( <DATA> ){ $lino += 1; $CSV{"num${lino}"} = $_; }
my %FORM; $FORM{'num1'} = 2; $FORM{'num2'} = 1;
my @index = map { [ $FORM{$_}, $_ ]; } keys %FORM;
for ( map { $_->[1]; } sort { $a->[0] <=> $b->[0]; } @index ){ print $CSV{$_}; }
__END__
name1,add1,tel1,mail1,comment1
name2,add2,tel2,mail2,comment2

ただ、一般的な使い方を考えると、順序を直接指定するってのじゃなく、ある列（例えばtel）の名前を指定すると、その列の値でソートする――というのが望まれるような気がします。
そこらへんいろいろプログラミングするのは大変ですから、SQLiteなどデータベースエンジンを利用する方式を検討した方が良いと思います。

お礼

返答が遅くなり、すみませんでした。

本来は、順序の直接指定は良くないとは分かっているのですが、既存のスクリプトに利用しているデータの並び順の自由な変更のみを追加機能として入れなければならなく、そのデータには、番号を振っていないので苦肉の策として、このような形を考えざるを得ませんでした。

素早いご回答、本当にありがとうございました。