七行プログラミング (452ﾚｽ)

七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

440: 438 [sage] 2007/12/08(土) 01:17:01 ID:??? >>439 凄いですね。いろんなことができるんだ、と感心しきり。 少しだけ縮めた。 <?php list($v,$w,$d)=explode("-",$a=q("$_GET[y]-1","Y-m-t"));$f=q("$v-$w-1","w" );echo$l="<a href=?y=",q($w-1,"Y-m",1),"><</a>$v-$w$l",q($w+1,"Y-m",1),">></a> $l>now</a><table><tr>";for($i=-6-$f;$i<$d-q($a,"w")+7;){echo$i<1-$f?"<th>".q($w ,"D",$i)."</th>":"<td>".($i<1||$i>$d?"":$i)."</td>";if(($f+$i++)%7==0)echo"</tr ><tr>";}function q($w,$x,$i=0){global$v;return date($x,$i?mktime(0,0,0,$w,$i,$v ):strtotime($w));}?></tr></table> http://medaka.5ch.net/test/read.cgi/php/1036141603/440

441: 438 [sage] 2007/12/08(土) 02:02:58 ID:??? 手抜きバージョン。取り合えず表示されるみたいなので… <?php function q($w,$x,$i=0){global$v;return date($x,$i?mktime(0,0,0,$w,$i,$v): strtotime($w));}list($v,$w,$d)=explode("-",$a=q("$_GET[y]-1","Y-m-t"));echo$l=" <a href=?y=",q($w-1,"Y-m",1),"><</a>$v-$w$l",q($w+1,"Y-m",1),">></a> $l>now</a> <table><tr>";for($i=-6-$f=q("$v-$w-1","w");$i<32;){echo$i<1-$f?"<th>".q($w,"D", $i)."</th>":"<td>".($i<1||$i>$d?"":$i)."</td>";if(($f+$i++)%7==0)echo"</tr><tr> ";}?></tr></table> http://medaka.5ch.net/test/read.cgi/php/1036141603/441

442: 438 [sage] 2007/12/08(土) 02:37:04 ID:??? HTMLダメダメの超手抜きバージョン。無理やり５行にしてみた。 <?php list($v,$w,$d)=explode("-",q("$_GET[y]-1","Y-m-t"));echo$l="<a href=?y=", q($w-1,"Y-m",1),"><</a>$v-$w$l",q($w+1,"Y-m",1),">></a> $l>now</a><table>";for( $i=-6-$f=q("$v-$w-1","w");$i<32;){echo$i<1-$f?"<th>".q($w,"D",$i)."</th>":"<td> ".($i<1||$i>$d?"":$i)."</td>";if(($f+$i++)%7==0)echo"</tr><tr>";}function q($w, $x,$i=0){global$v;return date($x,$i?mktime(0,0,0,$w,$i,$v):strtotime($w));}?> http://medaka.5ch.net/test/read.cgi/php/1036141603/442

443: nobodyさん [sage] 2007/12/08(土) 22:33:30 ID:??? 閉じタグ無しでいいなら <?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>";} http://medaka.5ch.net/test/read.cgi/php/1036141603/443

444: nobodyさん [円柱都市age] 2008/02/14(木) 04:21:18 ID:??? >>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非保護。 http://medaka.5ch.net/test/read.cgi/php/1036141603/444

445: nobodyさん [ルルイエage] 2008/02/16(土) 22:06:19 ID:??? >>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」でリクエスト。 http://medaka.5ch.net/test/read.cgi/php/1036141603/445

446: nobodyさん [sage] 2009/10/15(木) 22:52:19 ID:??? 最終カキコ一年前なのになんで落ちないんだ？ http://medaka.5ch.net/test/read.cgi/php/1036141603/446

447: nobodyさん [sage] 2009/10/16(金) 18:37:54 ID:??? >>446 cos this thread is very good! don't you think so? http://medaka.5ch.net/test/read.cgi/php/1036141603/447

448: 忍法帖【Lv=40,xxxPT】(7+0：8) 【19.3m】 電脳プリオン ◆3YKmpu7JR7Ic [sage] 2012/09/30(日) 17:44:14.82 ID:??? 　　　　　　　　　 |　|　ｶﾞｶﾞｶﾞｶﾞｶﾞｯ 　　　　　　　　　 |　| 　　　　　　　　　 人 　　∧＿∧　　 < 　>_∧∩ 　 （　・∀・）　　 人｀Д´）/ ←>>140 　と　　　　）　　< 　>_∧∩ 　　 Ｙ　/ノ 　 　.人｀Д´）/ ←>>155 　　　 /　）　 　 < 　>_∧∩ 　 ＿/し'　／／. Ｖ｀Д´）/ ←>>320 　（＿フ彡　　　　　　　 / http://medaka.5ch.net/test/read.cgi/php/1036141603/448

449: nobodyさん [] 2017/12/30(土) 12:58:56.43 ID:YhlYw6jg 誰でも簡単にネットで稼げる方法など 参考までに、 ⇒　『半藤のブブイウイウレレ』 というサイトで見ることができます。 グーグル検索⇒『半藤のブブイウイウレレ』 WUFNFIRDC9 http://medaka.5ch.net/test/read.cgi/php/1036141603/449

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

451: nobodyさん [] 2018/06/20(水) 22:23:10.69 ID:UnZq46Ab プログラミングを誰でも習得できる方法は、「前場アキドルのプログラミングマスター方法」というブログで見られるらしいよ。ネットで調べると見られるらしいです。 9PV1J http://medaka.5ch.net/test/read.cgi/php/1036141603/451

452: nobodyさん [sage] 2023/03/10(金) 00:09:48.43 ID:??? (-｡-)y-ﾟﾟﾟzzz… 　(*_*)y- ｱﾁ! http://medaka.5ch.net/test/read.cgi/php/1036141603/452

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 1.159s*