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

---

328: 7clap 04/07/26 23:10 ID:??? AAS
オリジナルから仕様を極力変えない方向で10行。

#!/usr/local/bin/perl
use CGI":all";charset$c=Shift_JIS;param(k,$k=1+param k);($w=escapeHTML(param w)
)=~s/\x0D\x0A|[\x0A\x0D]/br/eg;sub d{($h,$d,$m,$y)=(localtime(time-86400*pop))[
2..5];$g=($y+1900).sprintf"%02d"x2,$m+1,$d}($C,$M,$L,$T,$I,$S,$E,@M)=<DATA>;
open L,">$L";eval{flock L,2};open C;d>(@c=<C>)[-1]?(@c<14||shift@c,@l=((0)x25,
"\n")):(($g,@l)=split/<>/,pop@c);$l[$h+1]++;$l[0]++;open C,">$C";print C@c,join
"<>",$g,@l;d(14);open M;@m=grep$g<=$_,<M>;open M,">$M";print M@m,""ne$w&&d."<>$
h<>$w<>\n";put header,start_html(-Title,$T,lang,ja,encoding,$c),($k<10?(p($M[
rand@M]),startform,p(hidden(k),submit$S),p($I,br,textfield w,'',50,50),endform)
:p$E),end_html;__END__
./log.dat
./mes.dat
./lock.dat
web拍手送信完了
ついでに一言あればどうぞ (拍手だけでも送れます)
もっと送る
沢山の拍手を有り難うございました！
拍手が送信されました。ありがとうございました！
拍手が送信されました。ありがとうございますた！
拍手が送信されました。ありがとさ〜ん！

---

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

---

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

---

ぬこの手 ぬこTOP 0.004s