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

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

443: 2007/12/08(土)22:33 ID:??? AAS
閉じタグ無しでいいなら

<?php function q($w,$i=1,$x="Y-m"){global$v;return date($x,$i?mktime(0,0,0,$w,
$i,$v):strtotime($w));}list($v,$w,$d)=explode("-",q("$_GET[y]-1",0,"Y-m-t"));
echo$l="<a href=?y=",q($w-1),"><</a>$v-$w$l",q($w+1),">></a> $l>now</a><table>"
;for($i=-6-$f=q("$v-$w-1",0,"w");$i<32;){echo"<td>",($i<1-$f?q($w,$i,"D"):($i<1
||$i>$d?"":$i)),($f+$i++)%7?"":"<tr>";}

---

444: [円柱都市age] 2008/02/14(木)04:21 ID:??? AAS
>>334 ３年越しの7clap.

#!/usr/bin/perl
use CGI":all";charset$c=Shift_JIS;sub d{($m,$m,$h,$d,$m,$y)=localtime(time-pop);
$l[0]=(190001+$y*100+$m)*100+$d}param(K,$k=1+param K);($w=escapeHTML(param W))=~
y/\0- / /s;($C,$M,$L,$E,@M)=<DATA>;open L;flock L,2;open C;@l=d>(@c=<C>)[-1]?(d,
(0)x25,$/):split/<>/,pop@c;@c<14||shift@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(-encoding,$c,lang,ja),$k<10?($M[rand@
M],startform,p(hidden(K),Comment,textfield(W),submit Clap),endform):p$E,end_html
__DATA__
log.dat
mes.dat
>lock.dat
沢山の拍手を有り難うございました！
拍手が送信されました。ありがとうございました！
拍手が送信されました。ありがとうございますた！
拍手が送信されました。ありがとさ〜ん！

・flock非保護。

---

445: [ルルイエage] 2008/02/16(土)22:06 ID:??? AAS
>>327 7kaiseki.cgi

#!/usr/bin/perl
use CGI":all";charset$c=Shift_JIS;($P,$C,$M)=<DATA>;($p=param P).$/ne$P&¨sub
l{(sort@_)[-1]/10||1}sub d{@p=localtime time-86400*pop;$g=(190001+$p[5]*100+$p[4
])*100+$p[3]}open C;%c=map{/<>/;$`,$'}<C>;($l,@l)=$c{$q=param(T)||d}=~/\d+/g;put
header,start_html(-encoding,$c,lang,ja),h1($q),table((map{Tr td[$z++.':00',$_+0,
"/"x($_/l@l)]}@l[0..23]),Tr td[Total,$l+0,""]),h1(Mes),dl(map{s/<>$//;/<>/;$`!=$
z&&dt($z=$`.':00'),dd$'}grep{s/$q<>//}open(M),<M>),h1(Past14day),table(map{Tr td
[a({href,"?P=$p&T=".d$x++},$g),$_,"/"x($_/l@s)]}@s=map{$c{d$_}+0}0..13),end_html
__DATA__
password
log.dat
mes.dat

・HTML適当。
・ファイルロックなし。
・DATAの１行目にパスワードを設定、「?P=password」でリクエスト。

---

446(1): 2009/10/15(木)22:52 ID:??? AAS
最終カキコ一年前なのになんで落ちないんだ？

---

447: 2009/10/16(金)18:37 ID:??? AAS
>>446
cos this thread is very good! don't you think so?

---

448: 忍法帖【Lv=40,xxxPT】(7+0：8) 【19.3m】 電脳プリオン ◆3YKmpu7JR7Ic 2012/09/30(日)17:44 ID:??? AA×
>>140>>155>>320

---

449: 2017/12/30(土)12:58 ID:YhlYw6jg(1) AAS
誰でも簡単にネットで稼げる方法など
参考までに、
⇒　『半藤のブブイウイウレレ』 というサイトで見ることができます。

グーグル検索⇒『半藤のブブイウイウレレ』

WUFNFIRDC9

---

450: 2018/02/20(火)05:11 ID:??? AAS
☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

---

451: 2018/06/20(水)22:23 ID:UnZq46Ab(1) AAS
プログラミングを誰でも習得できる方法は、「前場アキドルのプログラミングマスター方法」というブログで見られるらしいよ。ネットで調べると見られるらしいです。

9PV1J

---

452: 2023/03/10(金)00:09 ID:??? AAS
(-｡-)y-ﾟﾟﾟzzz… 　(*_*)y- ｱﾁ!

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.010s