罪と罰++二律背反

	# ログを展開
	open(IN,"$logfile$DAT{'camp'}\.cgi") || &error("Open Error : $logfile$DAT{'camp'}\.cgi");
	local $log_last_flag=0;
	while (<IN>) {
		$log_last_flag++;
		local($date,$nm,$camp,$com,$sogo,$sogo2,$sogo3,$addr,$host) = split(/<>/);
		$nm = qq|$nm <small>[$sogo_p[$sogo]$sogo2[$sogo2]]</small>| if($sogo);
		$nm = qq|$nm <small>[$sogo3_p[$sogo3]]</small>| if($sogo3);
		($mv_mode eq 'mv') ? $com =~ s/ハァト/<font color="pink">\&\#63726<\/font>/g : $com =~ s/ハァト/<span class="f1">ゥ<\/span>/g ;



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