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

---

270: 04/03/12 09:33 ID:??? AAS
息抜きにテキストカウンタ。お題がお題なので、今日/昨日/総計のカウントと、
ランダムワード表示機能付けてまだ一行余ってるけど。

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

空ファイル all.dat, tday.dat, yday.dat を予め用意。
?.dat というファイルがあると、そのファイルから一行ランダムに選んで表示。
?.dat が複数あった場合は、各ファイルからランダムに取り出して繋げて表示。

例えば 0.dat に人名、1.dat に場所、2.dat に行動のリストをそれぞれ用意
しておけば、「誰々が何処で何々」のようなランダム文を表示します。

---

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

---

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

---

ぬこの手 ぬこTOP 0.006s