if($_>=0 && $_<=3){ # 修正 $log .= qq|<input type="radio" name="cmd" value="$_">[武] $dg_data[$eq[$_]][1] lv.$eq_lv[$_]($eq_cnt[$_])<br>\n|; }elsif($_>=4 && $_<=7){ # 修正 $log .= qq|<input type="radio" name="cmd" value="$_">[防] $df_data[$eq[$_]][1] ($eq_cnt[$_])<br>\n|; }elsif($_>=8 && $_<=11){ # 修正 $log .= qq|<input type="radio" name="cmd" value="$_">[道] $di_data[$eq[$_]][1] ($eq_cnt[$_])<br>\n|; } |