新しい書き込みができない、編集は可能。

質問

たびたび失礼します。

編集機能のついた掲示板を作成中です。

編集機能はつけられたのですが、今度は新しい書き込みができなくなりました。

新しい書き込みをすると、新しいデータが保存されずデータが逆に保存されたり、消えたりします。

ソース↓
open(KEIJI, "keijiban.dat") || die "File 'keijiban.dat' Open Error.";
# 過去のデータを全て配列に読み込む
@all = <KEIJI>;

# HTMLタグと衝突する記号などを変換

$num = $all[0] + 1 if( $num eq '' );
$title = &henkan($form{'title'});
$topic = $form{'topic'};
$message = $form{'message'};

foreach(@all){

$data = $_;

　　　　$count = 0;
( $fnum ) = ( split(/:/,$data) )[0];

if ( $fnum == $num ) {
$data = "$num:$time:$title:$topic:$message\r\n";
&jcode'convert(*data, 'sjis');
$count++;
}
if( $count == 0 ){
unshift @all_data, $data;
} else {
push @all_data, $data;
}
}

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

$countで新しいデータか編集かを分岐させたつもりなのですが、ここの処理が上手くいっていないようです。

怪しいのは、
unshift、$dataにちゃんとデータが入っているか、というところが怪しいように感じました。

もしヒントがあれば教えてください。
よろしくお願いします。

回答No.1

mognol_n · ベストアンサー

このソースの部分で新規投稿と編集機能両方を実装しようとしたのでしょうか？

だとすると、まず怪しいと思われるのが、

$num = $all[0] + 1 if( $num eq '' );

の部分です。
新規投稿時には@allの先頭の書き込みの番号を読み込んで新しく番号を付けているみたいですが、編集機能によりデータが並び替えられた場合、既存の番号が付けられてしまう可能性があるように思われます。

次に、foreach(@all)のループ内に間して、$dataを編集している部分はありますが、新規書き込み時に新しくデータを書き込んでいる部分が抜け落ちているのではないでしょうか？

とりあえず以上2点が怪しいと思われます。

# あと少し気になったので…
#
# @all = <KEIJI>;
# close(KEIJI);
#
# ちゃんとクローズはしておいた方が良いと思います。