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

---

328: 7clap 04/07/26 23:10 ID:??? AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
328: 7clap [sage] 04/07/26 23:10 ID:??? オリジナルから仕様を極力変えない方向で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拍手送信完了 ついでに一言あればどうぞ (拍手だけでも送れます) もっと送る 沢山の拍手を有り難うございました！ 拍手が送信されました。ありがとうございました！ 拍手が送信されました。ありがとうございますた！ 拍手が送信されました。ありがとさ〜ん！ http://medaka.5ch.net/test/read.cgi/php/1036141603/328
オリジナルから仕様を極力変えない方向で行 拍手送信完了 ついでに一言あればどうぞ 拍手だけでも送れます もっと送る 沢山の拍手を有り難うございました！ 拍手が送信されましたありがとうございました！ 拍手が送信されましたありがとうございますた！ 拍手が送信されましたありがとさん！

---

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

---

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

---

ぬこの手 ぬこTOP 0.048s