罪と罰++二律背反


  • 	# ログを展開
    	open(IN,"$logfile") || &error("Open Error : $logfile");
    	local $log_last_flag=0;
    	while (<IN>) {
    		$log_last_flag++;
    		local($date,$nm,$camp,$com,$sogo,$addr,$host,$agent) = split(/<>/);
    		$nm = qq|$nm <small>[$sogo_p[$sogo]]</small>| if($sogo);
    		($mv_mode eq 'mv') ? $com =~ s/ハァト/<font color="pink">\&\#63726<\/font>/g : $com =~ s/ハァト/<span class="f1">ゥ<\/span>/g ;
    
    		($mv_mode eq 'mv') ?
    			print qq|<span style="color:$camp_info[$camp][1]">$nm:$com [$camp_info[$camp][0] $date]</span><hr>\n|:     # ここを変更
    			print qq|<span style="color:$camp_info[$camp][1]">$nm : $com </span><span class="date">[ $camp_info[$camp][0] $date ]</span><hr>\n|;  # ※1
    		last if $log_last_flag > $log_last;
    	}
    	close(IN);


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-06-08 (金) 00:27:34 (4341d)