罪と罰++二律背反


# キャラデータ書き込み
sub dat_write{

	&error("open error no such a file!",1) if(!$nm || !$id);
                ↓このように soko;$soko,  を追加します
	$dat[0] = "soko;$soko,la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$type,

	          #・・・(1行が長すぎるので省略)・・・

	           sogo;$sogo,mes;$mes,info_mes;$info_mes,\n";

	$dat[1] = "$date<>$addr<>$host<>$agent<>\n";

	open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1);
	print OUT @dat;
	close(OUT)		or die "Can't close   : $!";
}



トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:26:24 (3063d)