#!/usr/bin/perl ################### # Style Note 1.0 => 1.4 $log = "./log/noteb.log"; $nlog = "./log/new.log"; if(!open(IN,"$log")){&err_out("$logが読み込めません.\n");} @buffer = ; close(IN) ; foreach $line (@buffer) { $line =~s/\[\[img:([\w]+\.[\w]+):([\w]+):([\d]+):([\d]+)\]\]//g; push(@dummy,$line); } foreach $line (@dummy) { $line =~s/\[\[media:([\w]+\.[\w]+):([\d]+):([\d]+)\]\]//g; push(@dummy2,$line); } if(!open(OUT,">$nlog")){&err_out("テンポラリーファイルが作成できません.");} print OUT @dummy2; close(OUT) ; rename("$nlog", "$log") ; # リネーム &err_out("変換は終了しました."); exit; # ======== エラーメッセージ表示======== sub err_out{ &head; print "

$_[0]

"; &botm; exit; } # ======== ヘッダ ============================== sub head{ print "Content-type: text/html\n\n"; print <<_HTML_; _HTML_ } # ======== ボトム ============================== sub botm{ print <<_HTML_; _HTML_ }