罪罰キャラパラメータ

# ハッシュ割り当て
sub hash_data{
	$pw		= $DAT{'pw'};		# パスワード
	$gold		= $DAT{'gold'};		# お金
	$nm		= $DAT{'nm'};		# 名前
	$lv		= $DAT{'lv'};		# レベル
	$sei		= $DAT{'sei'};		# 性別
	$hp		= $DAT{'hp'};		# 体力

	# ・・・（　省　略　）・・・
	# ここにその他のいろいろな変数の読み込みや、
 	# 自分で追加した変数を書き加えます

}

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

	&error("open error no such a file!",1) if(!$nm || !$id);
	
	# 新しい変数を $dat[0]に 変数名;変数, のように追加する 
	$dat[0].="la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei, 　・・・（　省　略　）・・・　　　,info_mes;$info_mes,\n";

	# $dat[0]にセットした変数を各キャラファイルに書き込む
	open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1);
	print OUT @dat;
	close(OUT) or die "Can't close   : $!";

}