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

---

334(1): 7clap 04/08/06 15:30 ID:??? AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
334: 7clap [sage] 04/08/06 15:30 ID:??? あと一行半。 #!/usr/local/bin/perl use CGI":all";charset$c=Shift_JIS;param(k,$k=1+param k);($w=escapeHTML(param w) )=~tr/\x0A\x0D//d;($C,$M,$L,$E,@M)=<DATA>;open L;eval{flock L,2};@l=((0)x26," ");sub d{($s,$m,$h,$d,$m,$y)=localtime(time-pop);$l[0]=($y+1900).sprintf"%02d"x 2,$m+1,$d}open C;d>(@c=<C>)[-1]?@c<14||shift@c:(@l=split/<>/,pop@c);$l[$_]++for $h+2,1;open C,">$C";print C@c,join"<>",@l;d 1209600;open M;@m=grep$l[0]<=$_,<M> ;open M,">$M";print M@m,""ne$w&&d."<>$h<>$w<>\n";put header,start_html(lang,ja, encoding,$c),$k<10?(p($M[rand@M]),startform,p(hidden(k),submit Clap),p(Comment, textfield w),endform):p$E,end_html;__END__ ./log.dat ./mes.dat >./lock.dat 沢山の拍手を有り難うございました！ 拍手が送信されました。ありがとうございました！ 拍手が送信されました。ありがとうございますた！ 拍手が送信されました。ありがとさ〜ん！ http://medaka.5ch.net/test/read.cgi/php/1036141603/334
あと一行半 沢山の拍手を有り難うございました！ 拍手が送信されましたありがとうございました！ 拍手が送信されましたありがとうございますた！ 拍手が送信されましたありがとさん！

---

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

---

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

---

ぬこの手 ぬこTOP 0.037s