七行プログラミング (452ﾚｽ)

七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

58: （　´∀｀）でけた〜 [sage] 02/11/04 12:59 ID:??? [アクセス解析] CGI名： a.cgi 空ファイル用意： log そのままアクセスしてログ取り 引数に a をつけて解析結果表示 #!/usr/bin/perl &a if $ENV{QUERY_STRING}eq'a';($s,$m,$j,$d,$g,$y)=gmtime(time+9*60*60);$i=$ENV{ REMOTE_ADDR};$h=$ENV{REMOTE_HOST}||gethostbyaddr(pack('C4',split(/\./,$i)),2)|| $i;$y=sprintf("%d/%02d/%02d/ %02d:%02d:%02d",$y+=1900,++$g,$d,$j,$m,$s);open(F, '+<log');@d=<F>;unshift(@d,"$y,$h,$ENV{HTTP_USER_AGENT},$ENV{HTTP_REFERER}\n"); seek(F,0,0);print F @d;sub a{print"Content-type:text/html\n\n";open(F,'log'); while(<F>){($t,$h,$u,$r)=split(/,/,$_);print"$t<br>$h<br>$u<br>$r<hr>"}exit} http://medaka.5ch.net/test/read.cgi/php/1036141603/58

62: nobodyさん [sage] 02/11/04 23:14 ID:??? >>57 試しにHTMLを分離して作ってみたら大分縮んだ。 ttp://boobar.hp.infoseek.co.jp/7bbs2/7bbs2_0.0.1.tar.gz >>58 縮めてみた。 #!/usr/bin/perl if($ENV{QUERY_STRING}eq'a'){open F,'log';print"Content-Type: text/html\n\n",map join('<br>',split/,/).'<hr>',<F>;exit}$i=$ENV{REMOTE_ADDR};$h=$ENV{REMOTE_HOST} ||gethostbyaddr(pack('C4',split/\./,$i),2)||$i;($s,$m,$j,$d,$g,$y)=localtime; open F,'+<log';eval{flock F,2};@d=(sprintf('%d/%02d/%02d %02d:%02d:%02d',1900+ $y,$g+1,$d,$j,$m,$s).",$h,$ENV{HTTP_USER_AGENT},$ENV{HTTP_REFERER}\n",<F>); truncate F,0;seek F,0,0;print F @d http://medaka.5ch.net/test/read.cgi/php/1036141603/62

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ ｱﾎﾞﾝOFF

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.017s