- 181 名前:178 mailto:sage [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); } #ここまで
|

|