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

---

272: 7rwcntr 04/03/12 11:11 ID:??? AAS
日付切替部分修正。

sub P{seek local*F=pop,0,0;print F@_}sub o{open(local*F,"+<@_")||die;eval{flock
F,2};*F}$l=@l=<$_chomp($r.=$l[rand$l])for map{o$_}sort<?.dat>;$T=o"tday.dat";
$Y=o"yday.dat";$A=o"all.dat";$a=<$A>+1;(localtime)[3]-(localtime((stat$Y)[9]))[
3]?do{P$y=<$T$Y;P$t=1,$T}:do{P$t=<$T>+1,$T;$y=<$Y>};P$a,$A;$s=@ARGV?
javascript:plain;printf"Content-Type: text/$s\n\n".join('',<DATA>),$r,$a,$t,$y

---

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

---

あと 180 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.005s