$logfile="./logdata/letter_log_";
if(!-e $logfile${month}.cgi){ open(OUT,"> $logfile${month}.cgi"); close(OUT); }
$logfile = "./logdata/letter_log.cgi";
$logfile = "./logdata/letter_log_";
# ログを展開
# ログを読み込み
if(!-e $logfile${month}.cgi){ open(OUT,"> $logfile${month}.cgi"); close(OUT); }
open(IN,"$logfile") || &error("Open Error : $logfile");
open(IN,"$logfile${month}.cgi") || &error("Open Error : $logfile${month}.cgi");
open(OUT,">$logfile") || &error("Write Error : $logfile");
open(OUT,">$logfile${month}.cgi") || &error("Write Error : $logfile${month}.cgi");