罪と罰++二律背反


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#---追加


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