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

180 ：178：2006/12/09(土) 20:45:46 ID:???

　　$log_data = pop(@LOGDATA);
　　　($l_date,$l_comment,$l_face,$l_weather,$l_color_1,$l_color_2,$l_title,$l_time,$l_min) = split(/<>/,$log_data);
　　#新規投稿データ↓
　　　($n_date,$n_comment,$n_face,$n_weather,$n_color_1,$n_color_2,$n_title,$n_time,$n_min) = split(/<>/,$line);

　　#現在のログの月を取得
　　$olddate = substr($l_date,4,2);

　　#新規投稿データから月を取得
　　$newdate = substr($n_date,4,2);

　　#現在の月より、ログの方が大きかったら・・・。
　　if($olddate < $newdate){
　　　$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);
　　　}elsif($olddate eq '12' && $newdate eq '1'){