罪罰改造板２/251

my @line = split(/_/,$soko);#倉庫スクリプトのsoko_readです
	foreach(0..$#line){
		my ($item_type,$item_no,$cnt,$item_lv) = split(/<>/,$line[$_]);
		$soko_lst[$_]=$item_no;
		$soko_cnt[$_]=$cnt;
		$soko_typ[$_]=$item_type;
		$soko_lv[$_]=$item_lv;

foreach(0 .. $#soko_lst){#編集の画面です。これは表示されました。
		if($soko_lst>0 && $soko_cnt>0 || true){
	print <<"EOM";
<tr></td>
<td nowrap><input type="text" name="soko_typ[$_]" value="$soko_typ[$_]" style="width:80px">
<td nowrap><input type="text" name="soko_lst[$_]" value="$soko_lst[$_]" style="width:80px">
<td nowrap><input type="text" name="soko_cnt[$_]" value="$soko_cnt[$_]" style="width:80px">
<td nowrap><input type="text" name="soko_lv[$_]" value="$soko_lv[$_]" style="width:80px">
EOM
		}

# 書き換え処理＆結果
sub usr_regist2{
$sokol="$in{'soko_typ_t'}<>$in{'soko_lst_t'}<>$in{'soko_cnt_t'}<>$in{'soko_lv_t'}_";
	foreach(0 .. $#soko_lst){
		if($soko_lst[$_]>0 && $soko_cnt[$_]>0 || true){
$sokol .= "$in{'soko_typ[$_]'}<>$in{'soko_lst[$_]'}<>$in{'soko_cnt[$_]'}<>$in{'soko_lv[$_]'}_";
}}
soko;$sokol#---追加