罪と罰++二律背反

# 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]
  • sub syogo{ $syogo = ($sogo > 0) ? "$nm [$sogo_p[$sogo]]:$sogo_txt" : "$nm"; }

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