★三　【 スクリプト改造工房 PART 9 】　★三

181 ：178：2006/12/09(土) 20:46:16 ID:???

　　#もし投稿されたのが1月で、直前の月が1月なら。
　　　$log_name = $logdir .'/'. substr($l_date,0,4) . substr($l_date,4,2) . '.log';

　　　open(OLD,"$log_name");
　　　@oldLOG = <OLD>;
　　　close(OLD);

　　　unshift(@oldLOG,"$log_data\n");

　　　sort sorter1 @oldLOG;

　　　open(OLD,">> $log_name")|| &error('過去ログファイル/ディレクトリ異常');
　　　print OLD @oldLOG;
　　　close(OLD);
　　　}
#ここまで