七行プログラミング (452ﾚｽ)
七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
27: nobodyさん [sage] 02/11/02 02:08 ID:??? >>1 Perl限定かよ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/27
28: nobodyさん [sage] 02/11/02 06:30 ID:??? 昔のBASICの１画面プログラムを思い出したよ http://medaka.5ch.net/test/read.cgi/php/1036141603/28
29: nobodyさん [] 02/11/02 14:13 ID:1/HvBlpx Ｄｕｋｅまだ〜？ ﾁﾝﾁﾝ http://medaka.5ch.net/test/read.cgi/php/1036141603/29
30: nobodyさん [] 02/11/02 17:48 ID:Sny9GkFS てめーら七行もあるのにその程度のモンしか作れねーのかよ（ﾌﾟ http://medaka.5ch.net/test/read.cgi/php/1036141603/30
31: nobodyさん [sage] 02/11/02 17:53 ID:??? >>30 だからきみのすごい作品を待っています。ハイレベル期待しています。 もうできてる？ 今からつくる？ 今日中には書き込んでくれ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/31
32: nobodyさん [] 02/11/02 20:55 ID:RJf4RKlR すごい作品まだ〜？ ﾁﾝﾁﾝ http://medaka.5ch.net/test/read.cgi/php/1036141603/32
33: nobodyさん [] 02/11/02 21:13 ID:aPBbHnBW 何本気になってんの？ http://medaka.5ch.net/test/read.cgi/php/1036141603/33
34: 末吉亮介 [] 02/11/02 21:15 ID:MUhjalxS http://plaza.rakuten.co.jp/a240a/ http://medaka.5ch.net/test/read.cgi/php/1036141603/34
35: nobodyさん [sage] 02/11/02 22:13 ID:??? >>33 作れないヤツはすっこんでてね（はぁと http://medaka.5ch.net/test/read.cgi/php/1036141603/35
36: nobodyさん [sage] 02/11/03 00:25 ID:??? >>30は、口だけ大将だったということか・・・ http://medaka.5ch.net/test/read.cgi/php/1036141603/36
37: nobodyさん [sage] 02/11/03 10:09 ID:??? 実際、Perlだったらかなりのものが出来てもおかしくはないかと。 ム板の7行スレは凄かった。 http://medaka.5ch.net/test/read.cgi/php/1036141603/37
38: nobodyさん [age] 02/11/03 14:13 ID:??? ム板マ板で相手にされない厨が集まる板はここですか？ http://medaka.5ch.net/test/read.cgi/php/1036141603/38
39: ユカリ [] 02/11/03 14:35 ID:8kfSttUc プランテック製の「 RX-2000? 」を改造済み にした、アイティーエス製の「 RX-2000? 」↓ http://user.auctions.yahoo.co.jp/jp/user/neo_uuronntya#.2ch.net/ 現在、本当に人気がある様です。 私も、この前、買いました。 関連ホームページ↓ http://www.h5.dion.ne.jp/~gekitoku/ http://www.h4.dion.ne.jp/~gekiyasu/ http://www.h5.dion.ne.jp/~gekirea/ http://www.h4.dion.ne.jp/~shinsetu/ http://medaka.5ch.net/test/read.cgi/php/1036141603/39
40: nobodyさん [sage] 02/11/03 14:48 ID:??? WebProg らしく。 --- cgi-lib.po --- my($m,$l,$i,$e,$x)=@ENV{'REQUEST_METHOD','CONTENT_LENGTH'};my$d=sub{$d= "Request to receive too much data: $l bytes\n";print"Content-Type: text/plain", "\n\n$d";die$d};sub ReadParse{$l>$$x?&$d:$m=~/POST/?($e=$l-read STDIN,$i,$l):( $i=$ENV{QUERY_STRING});local*I=pop;my@i=(split(/[&;]/,$i),($m?():@ARGV));for(@i ){tr/+/ /;s/%([\da-f]{2})/pack'H2',$1/egi for my($k,$v)=split/=/,$_,2;$I{$k}.= $I{$k}?"\0$v":$v}!$e&&scalar@i}${$x='cgi_lib::maxdata'}=131072 --------------- cgi-lib.pl 互換。Perl4 不可、multipart 未対応。 require 'cgi-lib.po'; $cgi_lib::maxdata = 1024; # POST 時の上限サイズ ReadParse(*in); # or ReadParse(\%in); http://medaka.5ch.net/test/read.cgi/php/1036141603/40
41: ◆FruitsMIpE [sage] 02/11/03 18:15 ID:??? 名前入力欄つき掲示板 $q=$ENV{QUERY_STRING}; if($q){@p=split /[&;]/,$q; foreach(@p){($a,$b)=split "="; $b=~tr/+/ /; $b=~s/%([A-Za-z0-9]{2})/pack("C", hex($1))/eg; $i{$a}=$b;} open W, ">> b.log"; print W "$i{n}<>$i{m}\n"; close W;} print "Content-type: text/html\n\n<html>\n<head><title>掲示板</title></head>\n<body>\n"; open R, "b.log"; while(<R>){chomp; ($n,$m)=split "<>"; print "$n：$m<br>\n";} close R; print qq{<hr>\n<form>Name<input type="text" name="n"> <input type="text" name="m" size="64"><input type="submit"></form>\n<hr>\n</body></html>\n}; exit; http://medaka.5ch.net/test/read.cgi/php/1036141603/41
42: ◆FruitsMIpE [sage] 02/11/03 18:27 ID:??? 改良 $q=$ENV{QUERY_STRING}; if($q){@p=split /[&;]/,$q; foreach(@p){($a,$b)=split "="; $b=~tr/+/ /; $b=~s/%([A-Za-z0-9]{2})/pack("C", hex($1))/eg; $i{$a}=$b;} open W, ">> b.log"; print W "$i{n}：$i{m}\n"; close W;} print "Content-type: text/html\n\n<html>\n<title>BBS</title>\n\n"; open R, "b.log"; while(<R>) {chomp; print "$_<br>\n";} close R; print qq{<hr>\n<form>Name<input type="text" name="n"> <input type="text" name="m" size="64"> <input type="submit"> [<a href="b.cgi">Reload</a>] [<a href="../../">Back</a>]</form>\n<hr>\n</html>\n}; http://medaka.5ch.net/test/read.cgi/php/1036141603/42
43: nobodyさん [sage] 02/11/03 18:38 ID:??? >>24 を発展させてみた。一行掲示板。 --- 7bbs.cgi --- #!/usr/local/bin/perl $l='7bbs.log';if(read STDIN,$_,$ENV{'CONTENT_LENGTH'}){for(split/&/){$_=(split /=/)[1];tr/+/ /;s/%([a-f\d]{2})/pack'H2',$1/egi;push@r,$_}@r=(''.localtime,@r); open F,"+<$l";flock F,2;@l=(join(': ',@r),"<br>\n",<F>);truncate F,0;print F @l[0..49]}open F,$l;print join('><input type=',"Content-type: text/html\n\n". '<title></title><form action=7bbs.cgi method=post','text name=n','text name=w', 'submit></form>'),<F> ---------------- 新しい順に表示。50件まで保存。 >>41 ネタが被るねぇ。ゴメンね。(´・ω・｀) http://medaka.5ch.net/test/read.cgi/php/1036141603/43
44: nobodyさん [sage] 02/11/03 19:17 ID:??? 動かねぇです大将！>>42>>43 >>42のは半角でも全角でも変な文字が保存されるです！モジコード変えてもダメだったです！ >>43のはファイルが作成されませぬ！ 私のミステイクでしょうか！ハラキリ！ http://medaka.5ch.net/test/read.cgi/php/1036141603/44
45: nobodyさん [sage] 02/11/03 19:22 ID:??? >>44 open F,"+<$l"; ←注目 つー事で、ログファイルは先に作っといて。 $l='7bbs.log'; のトコがログファイルのパスだから、よろ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/45
46: nobodyさん [require使えば] 02/11/03 19:44 ID:??? １行でも書けるな。 http://medaka.5ch.net/test/read.cgi/php/1036141603/46
47: nobodyさん [sage] 02/11/03 20:07 ID:??? （ そんな事より１さん、ちょっと聞いてよ。スレとあんまり関係ないけどさ。 `ー‐―V――――――――――――――――――――――――――――― ;:'´ （ このあいだ、WebProg板へ行ったんですの。WebProg板。 _....._{{ 〃 ＼ そしたらなんかRuby!と書かれたレスが多発していましたわ。 , - ' ,..､､.ヾ{{フ'⌒`ヽ､ー―――V―――――――――――――――――― ／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､ _....､､､､ （ で、よく見たらrubyistという名前の書き込みで、 . ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<´ , ｀ヽ.`ー――――V― 相手してもらえてないんです。 ,' .i /|. /.| { i, i, }. }_,,）) lﾆ二二ミヽ.､ ':, ,.: '´ ,_.....__｀ヽ､ ,..-‐-､),.....`_―――――― ! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.ｌ ./ ,! ,,｀ヾ:､ ':, ./'´￣｀ヾ､､ヽ,.:'´ ,:‐:､ ,.-､ ヽ. ', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞﾚ__,〃_/ﾘ !.'; .} ./ｌ_|___ﾉ! ｌ `､ ', / //`''} }.'; ', ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル'￣｀` ´-､,ﾉﾉ l l .!,;:=､｀:.｀:>=､.j,｝ |__人(( _ﾉﾉノ | | l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´ .|'￣ヽ __ ｀><ﾉ | {;:'ﾉ ﾉtrﾃ;､.Y ! ,--､ __`彡 ﾉ . ',|!!､ r‐┐ ｀ ノ' /,ｲ ! __ , ⌒'/!| | !.`ｰ‐'´, ﾞじ' ノ ! h. ._: ´ ｿ).（ 'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ! !､ ｰ' ノｲ ! | | !､ !ﾌ ｀フ'ﾘ ! ﾙ'ヽ.._ _..､(ン ﾉ ） ﾞ:､ｨ､jヾｰ::: 'iﾍ ノ',ﾘ.／! .| |ｰ`┬､' ´ 〃 l. トヾ､.ﾞ｀ｨ'' ´ヽ､/// ＼二|｀＼ｰ‐‐'´ ,､- '´ ヽ､ﾞ､ { ｀＞"､ ! ! ! | ｀>-､ | |､ ＿＿＿＿＿＿＿_∧＿＿＿＿＿ /＼＼ ', } //｀ヽ| ',.!ﾞ､ !／／ ﾞ!/ ! （ もうね、アホかと。馬鹿かと‥ http://medaka.5ch.net/test/read.cgi/php/1036141603/47
48: nobodyさん [] 02/11/03 21:17 ID:QK0oCR94 明文化 ・7行×79文字 ・Perl ・#!/usr/local/bin/perlは含まない。実質的なプログラムで七行。 ・スペースも1文字分。2バイト文字は2文字分。 でいいでしょうか？ http://medaka.5ch.net/test/read.cgi/php/1036141603/48
49: rubyist＠カラアゲうまうま [sage] 02/11/03 21:21 ID:??? perl版cc1だれか作れ http://medaka.5ch.net/test/read.cgi/php/1036141603/49
50: nobodyさん [sage] 02/11/03 22:32 ID:??? このスレを見たとき、 ム板かと思いますた。 http://medaka.5ch.net/test/read.cgi/php/1036141603/50
51: nobodyさん [sage] 02/11/03 22:34 ID:??? 掲示板は本家でもうかなり短くなってないか？ 別に委員だけど、もっと面白いﾈﾀがないかなと。 http://medaka.5ch.net/test/read.cgi/php/1036141603/51
52: 43 [sage] 02/11/03 23:08 ID:??? >>48 プログラムが Web 関連物なら言語は何でもいいんじゃ? シェバング行は C の #include みたいなモンだから…。 >>51 単に縮めるだけじゃなく、7行をギリギリまで使って機能増やすのも 楽しみの一つだよ。掲示板に食傷気味なのは同意するけど。(w つー事で改良。 --- 7bbs.cgi --- #!/usr/local/bin/perl $l='7bbs.log';if(read STDIN,$_,$ENV{CONTENT_LENGTH}){@r=''.localtime;for(split /&/){$_=(split/=/)[1];tr/+/ /;s/%([a-f\d]{2})/pack'H2',$1/egi;s/(["&<>])/'？'. unpack('C',$1).';'/eg;push@r,$_}open F,"+<$l";flock F,2;@l=(join(': ',@r). "<br>\n",<F>);truncate F,0;seek F,0,0;print F @l[0..49]}open F,$l;print join( '><input type=',"Content-type: text/html\n\n<title>7BBS</title><form action=". '7bbs.cgi method=post','text name=n','text name=w',"submit></form>\n"),<F> ---------------- ["&<>] を数値文字参照に変換。 http://medaka.5ch.net/test/read.cgi/php/1036141603/52
53: nobodyさん [sage] 02/11/03 23:18 ID:??? 7行のスレッドフロート型掲示板とかは無理？ http://medaka.5ch.net/test/read.cgi/php/1036141603/53
54: ◆FruitsMIpE [sage] 02/11/03 23:44 ID:??? >>43 Winではflock 使えなくてエラーに ヽ(*｀Д´)ﾉ ﾜｧｧﾝ >>44 ｶﾞ━━━━(;ﾟДﾟ)━━━━ﾝ !! すいませｎ原因わかりませｎ Windows環境でSJISならうまくいくんだけど・・ >>53 前に2ch型掲示板作ってみたけど、無理確定のような気がする。 誰か作れる人、いるかな http://medaka.5ch.net/test/read.cgi/php/1036141603/54
55: nobodyさん [] 02/11/04 06:56 ID:5+umhhBG ７行2ch型掲示板 ただし、かちゅ〜しゃがないとだめぽ、 read.cgiがないから読めないし、書きこみフォームもないから、あとsubject.txtの新スレは一番下になる。 flockもしていない、かちゅに依存するために変数名が長い。 下記のディレクトリ構成で成功 /test +--/bbs.cgi +--/subject.txt +--/dat/ #!/usr/local/bin/perl $t=time;read(STDIN,$b,$ENV{'CONTENT_LENGTH'});@p=split(/&/,$b);foreach (@p) {($a,$v)=split "=";$v=~tr/+/ /;$v=~s/%([A-Za-z0-9]{2})/pack("C", hex($1))/eg; $i{$a}=$v;}if(!$i{'key'}){$i{'key'}=$t;}open(F,">>./dat/$i{'key'}.dat"); print F "$i{'FROM'}<>$i{'mail'}<>$t<>$i{'MESSAGE'}<>$i{'subject'}\n";close(F); open(S,">>./subject.txt");print S "$i{'key'}.dat<>$i{'subject'}(1)\n"; close(S);exit; つーか激しく2ch型から離れているが。 http://medaka.5ch.net/test/read.cgi/php/1036141603/55
56: nobodyさん [sage] 02/11/04 09:38 ID:??? >>55 それは普通掲示板といいません（w win鯖では動いたけどな。 http://medaka.5ch.net/test/read.cgi/php/1036141603/56
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 396 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.009s