罪と罰++二律背反


  • # 過去の栄光書き込み&バックアップ処理
    sub hist_write{
    
           $cdat = "cn1;$cn1,cg1;$cg1,cf1;$cf1,cs1;$cs1,ce1;$ce1,c1;$c1,c1a;$c1a,cn2;$cn2,cg2;$cg2,cf2;$cf2,cs2;$cs2,ce2;$ce2,c2;$c2,c2a;$c2a,cn3;$cn3,cg3;$cg3,cf3;$cf3,cs3;$cs3,ce3;$ce3,c3;$c3,c3a;$c3a,cn4;$cn4,cg4;$cg4,cf4;$cf4,cs4;$cs4,ce4;$ce4,c4;$c4,c4a;$c4a,cn5;$cn5,cg5;$cg5,cf5;$cf5,cs5;$cs5,ce5;$ce5,c5;$c5,c5a;$c5a,set;$set,all_mem;$all_mem,goal_no;$goal_no,hasya;$hasya,hcamp;$hcamp,ad;$addr,ht;$host,date;$date,wr_mes;$wr_mes,camp;$camp,\n";
  •        # 記事展開
           @lines = reverse(@lines);
           foreach(0 .. $log_last){
    
                   last    if(!$lines[$_]);
                   my @y1  = split(/,/,$lines[$_]);
                   $y1[43] =~ s/wr_mes;//g;
                   $y1[44] =~ s/camp;//g;                 # ここに追加
    
                   if($mv_mode eq 'pc'){
                           foreach(1 .. $#camp_info){
                                   $y1[43] =~ s/$camp_info[$_][0]/<span style="color:$camp_info[$_][1]">$camp_info[$_][0]<\/span>/g;
                           }
    
                   }
    
                   # print "<li>$y1[43]<hr>\n";     # この行を下のように修正
                   print qq|<li><span style="color:$camp_info[$y1[44]][1]">$y1[43]</span><hr>\n|;
    
           }


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