# sub decode $sogo_sel = $in{'sogo_sel'}; # sub hash_data $sogo_txt = $DAT{'sogo_txt'}; # dat_write sogo_txt;$sogo_txt, if(length($com)>80){ &error("全角40文字までです。",1); } $com =~ s/\n//g; $info_mes=$com; } # 称号 if($sogo_lv[$sogo_sel]>0){ $sogo_txt="$sogo_p[$sogo_sel] lv.$sogo_lv[$sogo_sel]"; } <input type=submit value="ポチッ/更新" class="button2" style="width:100px"> <input type=reset value="クリア" class="button2" style="width:40px"> <br><br> EOM &sogo_list; $log .= qq|</form></div>|; sub sogo_list{ $sogo_no = 0; $log .= qq| 称 号:<select name="sogo_sel">|; foreach(@sogo_p){ if($sogo_lv[$sogo_no]>0 ){ $log.=qq|<option value="$sogo_no"|; if($sogo_txt eq "$sogo_p[$sogo_no] lv.$sogo_lv[$sogo_no]"){ $log.=qq| selected |; } $log.=qq|>$sogo_no $sogo_p[$sogo_no]|; $log.=qq| lv.$sogo_lv[$sogo_no|; $log.=qq|</option>|; } $sogo_no++; } $log .= qq|</select>|; } [$sogo_txt]
|