七行プログラミング (452ﾚｽ)
上下前次1-新

---

8(2): 02/11/01 19:29 ID:??? AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
8: [sage] 02/11/01 19:29 ID:??? #!/usr/bin/perl my $logfile = './count.log'; my $addr = $ENV{'REMOTE_ADDR'}; open( FILE,"+<$logfile" ) or die; flock( FILE, 2 ); ( $_ = <FILE> ) =~ /^(.*?):(.*)$/; my ( $count, $ip ) = ( $1, $2 ); $count++ if $addr ne $ip; seek( FILE, 0, 0 ); print FILE "$count\:$addr"; truncate( FILE, tell ); close FILE; print "Content-type: text/plain\n\n"; printf( "%.5d", $count ); exit; 自作のカウンターです。元はKENTですが原型無いです。 一応多重カウント防止、桁そろえします。 これなんとか7行にできそーなんだけど、どうでそう？ http://medaka.5ch.net/test/read.cgi/php/1036141603/8
自作のカウンターです元はですが原型無いです 一応多重カウント防止桁そろえします これなんとか行にできそーなんだけどどうでそう？

---

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

---

あと 444 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.048s