$stonefile = './logdata/stone_log.cgi'; sub hist_write{ # ここで国ログ書き込み ... 省略 ... #----------------------------ここから # 統一時は石碑に刻む if($touitu_flag==1){ &stone_write; } #----------------------------ここまで } #----------------------------ここから sub stone_write{ open (DB2,">>$stonefile") || &error("open error:$stonefile",1); print DB2 $cdat; close(DB2) or die "Can't close : $!"; } #----------------------------ここまで
|