罪と罰++二律背反


sub hist_write {

    # ・・・・ 省略 ・・・・

    &cndi_write; # 追加
}
# --------------------------- ここから追加
sub cndi_write{
    if ($cndi_flag==1) {
      # 各国ファイル名:cndi1_log.cgi, cndi2_log.cgiなど
      $cndifile = "./logdata/codi$camp_log.cgi";

      open (DB2,">>$cndifile") || &error("open error:$cndifile",1);
      print DB2 $cdat;
      close(DB2)               or die "Can't close   : $!";
      $cndi_flag=0;
    }
}
# --------------------------- ここまで追加
# 書き込みたいhist_writeの前にフラグをオンしてから、hist_writeを呼び出せばOK
$cndi_flag=1;  # 追加
&hist_write;
  • $logfile	= "./logdata/chist$camp_log.cgi";	# ログファイルのパス
  • # --------------------------- ここから追加
    sub chist_write{
          # 各国ファイル名:cndi1_log.cgi, cndi2_log.cgiなど
    	$chdat = "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,cwr_mes;$cwr_mes,\n";
    	$chistfile = "./logdata/chist$camp_log.cgi";
    	 
    	open (DB2,">>$chistfile") || &error("open error:$chistfile",1);
    	print DB2 $chdat;
    	close(DB2)               or die "Can't close   : $!";
    }
    #-------------------------------------------------------------------------------


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