罪罰改造板３/14

• <td nowrap>
  <select name="sogo">
  EOM
  	foreach(0 .. $#sogo_p){
  		print "<option value=$_";
  		print " selected" if($sogo==$_);
  		print ">$_:$sogo_p[$_]\n";
  	}
  	print <<"EOM";
  </select>
  </td>

<td nowrap>
<select name="sogo2">
EOM
	foreach(0 .. $#sogo_p){
		print "<option value=$_";
		print " selected" if($sogo2==$_);
		print ">$_:$sogo_p[$_]\n";
	}
	print <<"EOM";
</select>
</td>

<th nowrap>称号</th>

<th nowrap>称号２</th>

sogo2;$in{'sogo2'},

<th nowrap>称号</th>

<th nowrap>称号２</th>

<td nowrap>$in{'sogo'}</td>

<td nowrap>$in{'sogo2'}</td>