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

---

270: 04/03/12 09:33 ID:??? AA×



[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
270: [sage] 04/03/12 09:33 ID:??? 息抜きにテキストカウンタ。お題がお題なので、今日/昨日/総計のカウントと、 ランダムワード表示機能付けてまだ一行余ってるけど。 --- 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 に行動のリストをそれぞれ用意 しておけば、「誰々が何処で何々」のようなランダム文を表示します。 http://medaka.5ch.net/test/read.cgi/php/1036141603/270
息抜きにテキストカウンタお題がお題なので今日昨日総計のカウントと ランダムワード表示機能付けてまだ一行余ってるけど 空ファイル を予め用意 というファイルがあるとそのファイルから一行ランダムに選んで表示 が複数あった場合は各ファイルからランダムに取り出して繋げて表示 例えば に人名 に場所 に行動のリストをそれぞれ用意 しておけば誰が何処で何のようなランダム文を表示します

---

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

---

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

---

ぬこの手 ぬこTOP 0.067s