if(length($com)>80){ &error("全角40文字までです。",1); }
$com =~ s/\n//g;
$info_mes=$com;
}
# 称号
if($sogo_lv[$sogo_sel]>0){
$sogo = $sogo_sel;
}
<input type=submit value="ポチッ/更新" class="button2" style="width:100px">
<input type=reset value="クリア" class="button2" style="width:40px">
<br>
コメントは全角40文字まで。
</form>
</div>
EOM
<input type=submit value="ポチッ/更新" class="button2" style="width:100px">
<input type=reset value="クリア" class="button2" style="width:40px">
<br>
コメントは全角40文字まで。
<br>
EOM
&sogo_list;
$log .= qq|</form></div>|;
#------------------------------------------------------
sub sogo_list{
$sogo_no = 0;
$log .= qq| 称 号:<select name="sogo_sel">|;
foreach(0 .. $#sogo_p){
$sogo_no = $_;
if($sogo_lv[$sogo_no]>0 ){
$log.=qq|<option value="$sogo_no"|;
if($sogo == $sogo_no){
$log.=qq| selected |;
}
$log.=qq|>$sogo_no $sogo_p[$sogo_no]|;
$log.=qq| lv.$sogo_lv[$sogo_no]|;
$log.=qq|</option>|;
}
}
$log .= qq|</select>|;
}
#------------------------------------------------------
1;#削除不可