複数行を順番通りに並べたい

質問

perlを使い、複数行に渡る情報をdatファイルから読み込み、<form>～</form>を含むhtmlより
表示する順番を<select>～</select>にて指定し、またdatファイルに書き出しを行っています。
例として以下の様になります。

1(ID)<>1(並び順番)<>…
2<>5<>…
3<>4<>…
4<>2<>…
5<>3<>…

この際に並び順番の指定の数字が被ってしまったまま送信を行ってしまうと、
そのdatファイルを使用する他スクリプト上で問題が発生するため、
並び順番の数字が （1・1・2・3・4・4・5の様に）被ってしまっても
再度降順に1・2・3・4・5～と数字を書き直す様にしたいと考えておりますが
非常に難しく、難儀しております。

並び順番の数字が被ってしまった場合にエラーメッセージを表示させ、
再度入力させる方が簡単なのかとも考えますが、
こちらもどの様にすれば良いのか、困っております。

どうぞ知恵をお貸しください。

回答No.2

kmee · ベストアンサー

いまひとつ、おっしゃっていることがわからないんですが
○ 番号順に並び変えるのは出来ている、ということでよろしいですか?

○ どんなデータ構造で記憶しているかがわかりませんが
$data[0] = '1(ID)<>1(並び順番)<>…' ;
$data[1] = '2<>2<>…' ;
...
みたいなリスト構造だったら、並び変えたあと、「並び順番」のデータをそのまま使うのではなく。添字($data[0]の0,$data
[1]の1)+1を使えばいいし
foreach $d (@data) みたいに使っているなら
$no=1;
foreach $d (@data) { ... ; $no++ ; }
のようにした$noを使えばいいです(#1にあるカウンタです)

○ 重複がある
⇔ ($i != $j) かつ ($data[$i]の『並び順番』 == $data[$i+1]の『並び順番』) となる ($i ,$j) (0<=$i,$j<データ数)の組合せが存在する
⇔『並び順番』でソートした状態で、 ($data[$i]の『並び順番』 == $data[$i+1]の『並び順番』) となる $i (0<=$i<データ数-1)が存在する
です。
効率を考えなければ、総当たりするだけの簡単なプログラムです。

お礼

有難うございました。
採番し直す方はやはり難しかったので、重複がある場合エラーメッセージを出す方向で参考にさせていただき、成功致しました。

回答No.3

myuki1232

質問の内容は、例えば

my @array = ([3, 1], [2, 5], [1, 1], [4, 2], [5, 5]);
my @result = sort { $a->[1] <=> $b->[1] } @array;
↓
3, 1
1, 1
4, 2
2, 5
5, 5

を

3, 1
1, 2
4, 3
2, 4
5, 5

に変換したい、という意味で合っていますか？
そうであれば単純に

foreach my $i (0 .. $#result) {
$result[$i][1] = $i + 1;
}

で変換できます。

回答No.1

Tacosan

「降順に1・2・3・4・5～と数字を書き直す」が意味不明なんだが, カウンター使えばいいだけ, では?

お礼

解りにくくて申し訳ありません。
カウンターというものについて調べてみます。