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

---

273: 7rwcntr 04/03/14 02:10 ID:??? AAS
sub o{open(F,"+<@_")?eval{flock F,2}:die;<F>}($a,$t,$y,$l)=split/\t/,o"cnt.dat"
;dbmopen%r,remote,420or die;if(time-$r{$r="@ENV{REMOTE_ADDR,HTTP_USER_AGENT}"}>
3600&&$r ne$l){$y=$t,$t=0if(localtime)[3]-(localtime((stat F)[9]))[3];seek F,0,
0;print F join"\t",++$a,++$t,$y,$r;eval{truncate F,tell F}}$r{$r}=time;chomp($w
.=$l[rand(@l=o$_)])for sort<?.dat>;$/=@ARGV?javascript:plain;printf
"Content-Type: text/$/\n\n".<DATA$w,$a,$t,$y

・カウンタファイル三つを cnt.dat 一つに統合。
・重複カウント防止。(一時間以内と直前)

---

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

---

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

---

ぬこの手 ぬこTOP 0.014s