ヒットした行への上書き

質問

お世話になります。

今ブラウザゲームの編集しているのですが、一箇所動作が上手く行かない箇所がありご質問させて頂きました。

行いたい作業としては「前ページで受け取ったID(in{'id'})というデータの行がa.cgiにあった場合、編集して上書き保存」という作業です。

open(IN,"./data/a.cgi");
@UNIT_DATA = <IN>;

　　　　$uid = $in{'id'} ;

close(IN);

foreach(@UNIT_DATA){
($uid,$lchara,$lname,$houshu,$comment,$nouryoku,$flg,$y_con,$times,$ninki)=split(/<>/);
}

##flgが２の場合は以前に戦闘経験あり
if($uid eq $mid && $flg eq 2){

$maxtotal=$mstr+$mvit+$mint+$mmen+$mdex+$magi;
$flg = 0;
$y_con = 0;

}else{

##雇用フラグ
$flg = 0;

##派遣先国
$y_con = 0;

##能力値の計算
$maxtotal=$mstr+$mvit+$mint+$mmen+$mdex+$magi;

##回数を0にセット
$times = 0;

##人気を0にセット
$ninki = 0;

}
@UNIT_DATA = ();
unshift(@UNIT_DATA2,"$mid<>$mchara<>$mname<>$in{'unit'}<>$in{'com'}<>$maxtotal<>$flg<>$y_con<>$times<>$ninki<>\n");
open(OUT,">./data/a.cgi") or &error('データを書き込むことができません。');
print OUT @UNIT_DATA;
print OUT @UNIT_DATA2;
close(OUT);

現在a.cgiには複数行別々のデータが入っているのですが、上記のプログラムを実行すると、実行した際のデータのみ保存され、他がすべて消えてしまいます。

これをその行だけ編集して上書きすることはできないでしょうか？

補足や分かりにくい点などあれば随時させて頂きますので何卒よろしくお願い申し上げます。

回答No.1

sakusaker7 · ベストアンサー

> open(OUT,">./data/a.cgi") or
このオープンの仕方では、以前にあった内容はまるきり消去されます。

>これをその行だけ編集して上書きすることはできないでしょうか？
行が固定長であれば何とかできなくもないですが、長さが可変なら
できないと見たほうがいいでしょう。
一旦全部読み取って編集後に書き戻すなどのようにするしかないです。