七行プログラミング (452ﾚｽ)
七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
294: nobodyさん [sage] 04/03/23 17:07 ID:??? 縮め&書き込み確認ダイアログ #! /usr/bin/perl use CGI":all";charset$c='EUC-JP';opendir H,"./";$s='7editor';while($i=readdir H ){$l.=li a{href,"$s.cgi?$i"},$i}if(request_method eq'POST'){$p=param(f);open H, ">$p";print H param(t);put"Location: $s.cgi?$p\n\n"}else{if(open H,$q=$ARGV[0]) {$f.=$_ while(<H>)}put header,start_html(-title=>$s,encoding,$c,lang,ja),h1($s) ,ul($l),startform(-onSubmit=>"return confirm('OK?')",post,"$s.cgi"),p(textfield f,$q)
,p(textarea t,$f,9,82),p(submit regist),endform,end_html} http://medaka.5ch.net/test/read.cgi/php/1036141603/294
295: nobodyさん [sage] 04/03/23 18:36 ID:??? #! /usr/bin/perl use CGI":all";charset$c='EUC-JP';*b=*param;opendir H,"./";while($i=readdir H){$ l.=li a{href,($s='7editor').".cgi?$i"},$i}if(request_method=~/POST/){open H,">" .($n=b F);$_=b T;s/[\r\n|\r[^\n]]/\n/g;print H;put redirect"$s.cgi?$n"}else{if( open H,$q=$ARGV[0]){$f.=$_ while<H>}put header,start_html(-title=>$s,encoding,$ c,lang,ja),h1($s),ul($l),startform(-onSubmit=>"return confirm('OK?')",,"$s.cgi" ),p(textfield F,$q),p(textarea T,$
f,9,82),p(submit regist),endform,end_html} 環境によって改行コードが変わってしまうバグを修正。結構ギリギリ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/295
296: nobodyさん [] 04/03/24 11:46 ID:/Yo7kiNa #! perl use CGI":all";charset$c='EUC-JP';opendir H,".".($d=path_info);while($_=readdir H){if(!/^\.+$/){$l.=li a{href,script_name."$d".(-d".$d/$_"?"/":"?").$_},$_}}if( request_method=~/P/){open H,">.$d/".($n=param F);$_=param T;s/\r\n|\r[^\n]/\n/g ;print H}if(open H,".$d/".($q=$ARGV[0])){$f.=$_ while<H>}put header,start_html( -title=>"7editor",encoding,$c,lang,ja),h1($d||"/"),ul($l),startform(-onSubmit=> "return confirm('OK?')"),p(textfield(F,$q),
br,textarea(T,$f,9,82),br,submit),endform,end_html ディレクトリを移動できるように 「.」「..」は非表示 h1要素は現在位置を表示 スクリプト名は自由（7editorじゃなくても可）に でも14文字ほどハミ出た。 http://medaka.5ch.net/test/read.cgi/php/1036141603/296
297: nobodyさん [sage] 04/03/24 14:15 ID:??? use CGI":all";charset$c='EUC-JP';($d=path_info)=~s|/*$|/|;if(request_method=~PO ){open H,">.$d".($n=param F);$_=param T;s/\x0D\x0A/\n/g;tr/\r/\n/;print H}$/=() ,$f=<H>if open H,".$d".($q=pop);opendir H,".$d";$l.=li a{href,url.$d.(-d".$d$_" ?$_:"?$_")},$_ for grep!/^\.+$/,readdir H;put header,start_html(-encoding=>$c, lang,ja,Title,"7editor"),h1($d),ul($l),startform(-onSubmit=>"return confirm( 'OK?')"),p(textfield(F,$q),br,textarea(T,$f,9,82),br,su
bmit),endform,end_html http://medaka.5ch.net/test/read.cgi/php/1036141603/297
298: nobodyさん [sage] 04/03/24 15:33 ID:??? ・.で画面リロード、..で親DIRへ移動 ・ディレクトリはお尻に「/」 use CGI":all";charset$c='EUC-JP';($d=path_info)=~s|/*$|/|;if(request_method=~PO ){open H,">.$d".($n=param F);$_=param T;s/\x0D\x0A/\n/g;tr/\r/\n/;print H}$/=() ,$f=<H>if open H,".$d".($q=pop);opendir H,".$d";$l.=li a{href,url.$d.(($h=-d".$ d$_")?$_:"?$_")},($_.($h&&"/"))for readdir H;put header,start_html(-encoding=>$ c,lang,ja,Title,"7editor"),h1($d),ul($l),startform(-onSubmit=>"retu
rn confirm( 'OK?')"),p(textfield(F,$q),br,textarea(T,$f,9,82),br,submit),endform,end_html http://medaka.5ch.net/test/read.cgi/php/1036141603/298
299: nobodyさん [sage] 04/03/24 20:28 ID:??? #!/usr/bin/perl use IO::Socket;$S=new IO::Socket::INET(Listen,1,LocalPort,1029,Reuse,1);sub p{ print@_}sub g($){($_=getc$C)eq pop}$n="\x0D\x0A";sub o{$c=pop;g"\x01"?($e=$c&2) :/\x22/?($c&1or$e=0):($c=1);p pack(C2,255,250+(4,2,2,4,3,2,1,4)[$c&1?$c:$c+4]), $_}{binmode($C=$S->accept);select$C;$e=1;$b='';p$p='$ ';{g"\xFF"?g"\xF7"?chop$b :/\xF8/?($b=''):/\xFB/?o 0:/\xFC/?o 1:/\xFD/?o 2:/\xFE/?o 3:0:/\x00/?do{$b=~s/[ $n]+\z//x;"exit"eq$b&&last;s/\s+\z/$n/for@o=`$b`
;p$n,@o,$p;$b=''}:(/\x08/?chop$ b:($b.=$_),/[$n]/||$e&&p$_);redo}close$C;redo} ttp://www5e.biglobe.ne.jp/~aji/3min/53.html を読みながら色々 実装してみるも、>>207 に負けてる telnetd 。;) 動作確認: TeraTermPro → Win98SE (command.com + KI-Shell) TeraTermPro → FreeBSD 4-STABLE (tcsh) telnet(1) (line mode) → Win98SE (command.com + KI-Shell) telnet(1) (line mode) → FreeBSD 4-STABLE (tcsh) TODO: cd http://medaka.5ch.net/test/read.cgi/php/1036141603/299
300: 7telnetd [sage] 04/03/25 10:13 ID:??? cd 実装。 #!/usr/bin/perl use IO::Socket;$S=new IO::Socket::INET(Listen,1,LocalPort,1029,Reuse,1);sub p{ print$C @_}sub g($){($_=getc$C)eq pop}$n="\x0D\x0A";{binmode($C=$S->accept);$e= 1;$b='';p$p='$ ';{g"\xFF"?g"\xF7"?chop$b:/\xF8/?($b=''):/[\xFB-\xFE]/?do{$c=ord ()-251;g"\x01"?($e=$c&2):/\x22/?($c&1or$e=0):($c=1);p pack(C2,255,250+(4,2,2,4, 3,2,1,4)[$c&1?$c:$c+4]),$_}:0:/\x00/?(($_,$b)=$b,s/[$n]+\z//,/^exit$/&&last,p$n ,(/^cd\s+/?chdir$':map{s/\s+\z/$n/;$_}`
$_`),$p):(/\x08/?chop$b:($b.=$_),/[$n]/ ||$e&&p$_);redo}close$C;redo} http://medaka.5ch.net/test/read.cgi/php/1036141603/300
301: ｸﾀﾞﾗﾝけど [sage] 04/03/25 11:06 ID:??? ■ 7jump.cgi（ime.nuクローン） ttp://hoge.com/7jump.cgi/http://www.2ch.net/ スキーマ指定可能 ttp://hoge.com/7jump.cgi/www.2ch.net/ 省略時はhttp:// #! perl use CGI":all";charset$c='EUC-JP';$_=path_info;s|^/||;s/\"/"/g;s/\'/？/g ;s/</</g;s/>/>/g;s/&(?![\#0-9a-zA-Z]+;?)/&/g;$_="http://$_"if!/:/;($m ,$a)=<DATA>;put header,start_html(-title=>"7jump",encoding,$c,lang,ja),p(strong (a{href,$_},$_).br.$m),hr,address($a),end_html; __DATA__
別のサイトにジャンプしようとしています。宜しければ上記のリンクをクリックしてください Powered by WebProg http://medaka.5ch.net/test/read.cgi/php/1036141603/301
302: 実体参照忘れてたｽﾏｿ [sage] 04/03/25 11:08 ID:??? #! perl use CGI":all";charset$c='EUC-JP';$_=path_info;s|^/||;s/\"/"/g;s/\'/'/g ;s/</</g;s/>/>/g;s/&(?![\#0-9a-zA-Z]+;?)/&/g;$_="http://$_"if!/:/;($m ,$a)=<DATA>;put header,start_html(-title=>"7jump",encoding,$c,lang,ja),p(strong (a{href,$_},$_).br.$m),hr,address($a),end_html; __DATA__ 別のサイトにジャンプしようとしています。宜しければ上記のリンクをクリックしてください Powered by WebProg http:/
/medaka.5ch.net/test/read.cgi/php/1036141603/302
303: nobodyさん [sage] 04/03/25 11:55 ID:??? use CGI":all";charset$c='EUC-JP';$_=path_info;/:/?s|^/||:($_="http:/$_");put header,start_html(-Title,"7jump",encoding,$c,lang,ja),p(strong(a{href,$_}, escapeHTML$_).br.<DATA>),hr,address(<DATA>),end_html http://medaka.5ch.net/test/read.cgi/php/1036141603/303
304: nobodyさん [sage] 04/03/29 10:25 ID:??? 巻き戻り分。 304 ：7uploader ：04/03/25 21:16 ID:??? use CGI":all";$CGI::POST_MAX=1<<20;$/=\4096;chdir D;sub v{open(F,pop)?binmode F :die}if(($f=upload f)=~/\.\w+$/){v">".time.$&;print F while<$f>;close F}++$i<51 ?push@f,$_:unlink for sort{$b<=>$a}<*>;($_=param d)?(v($_),put header(-type, 'application/octet-stream',Content_length,-s,attachment,$_),<F>):put(header, start_html,start_multipart_form,filefield(
f),submit,endform,table({border,1},Tr [map{td[a({href,"?d=$_"},$_),''.localtime+(stat)[9],(-s>>10).KB]}@f]),end_html) ・ファイルサイズを KB で表示。 http://medaka.5ch.net/test/read.cgi/php/1036141603/304
305: Unit7.pm [sage] 04/03/29 10:31 ID:??? #!perl if(!caller){my$p=pop;eval"use $p;1"?new$p->run:die$@}package Unit7;sub p{print" @_\n"}sub new{bless{},shift}sub run{$N=$O=0;for(grep/^test/,keys%{ref($s=shift) ."::"}){$T=$n=$o=0;$N++;set_up$s;$s->$_();tear_down$s;$n-$o||$O++;$T||p"$N) $S" ;print"$o/$n ok\n"}p$N-$O?("Run: $N, Failures:",$N-$O):"OK ($N tests)"}*set_up= *tear_down=sub{};sub assert{($s,$f,$m)=@_;($S)=(caller 1)[3]=~/\w+$/g;$n++;$o++ ,return if$f;$T++||p"$N) $S";print"\t$m\n"}$VERSION=1.0
0 ・出力フォーマットの変更 ・簡易 TestRunner.pl を内包 (> perl ./Unit7.pm My::TestCase::Class) http://medaka.5ch.net/test/read.cgi/php/1036141603/305
306: Store7.pm [sage] 04/03/29 14:12 ID:??? package Store7;use Symbol;sub E{$_=pop;s/['\\]/\\$&/g;"'$_'"}sub D{local$_=ref( my$f=pop);/SCALAR/?E$$f:/ARRAY/?"[".join(',',map{D($_)}@$f)."]":/HASH/?"{".join (',',map{E($_),D($f->{$_})}keys%$f)."}":E$f}$O='{open($f=gensym,$m.pop)||die if $m="';$E='local$/;(eval<$f>';$P='print$f D pop;1';$F='eval{flock$f';$L='lock_'; use base Exporter;$C=',close$f';$G='{$f=pop;';$M='}sub ';@EXPORT=($S='store',$R ='retrieve');@EXPORT_OK=($S.'_fd',"fd_$R",$L.$S,$L.$R);eva
l qq/sub $R$O<";$E$C )[0]$M$L$R$O<";$F,1};$E$C)[0]$M\fd_$R$G$E)[0]$M$S$O>";$P$C$M$L$S$O>";$F,2};$P$C $M$S\_fd$G$P}/;$VERSION=1.00 ・store_fd 、lock_store 、fd_retrieve 、lock_retrieve 実装 >>260 s/['\\]/\\$&/g でマズい例ってどんなのでしょう? http://medaka.5ch.net/test/read.cgi/php/1036141603/306
308: SevenLines の中の人 [sage] 04/04/16 12:18 ID:??? ダメ出しが無いようなので 7telnetd (>>300) と Unit7 (>>305) を載せました。 (個人的な)TODO: 7ch と 7thread の転載体裁整え > Store7 > 7vote 128 氏もライセンス GPL にしちゃっていいんでしょか? ご自身のサイトをお持ちでそちらで公開されるなら、SevenLines から リンクさせてもらいますよと言ってみるテスト。 http://medaka.5ch.net/test/read.cgi/php/1036141603/308
309: Store7.pm [sage] 04/04/19 14:35 ID:??? 縮め。 package Store7;use base Exporter;use Symbol;sub E{$_=pop;s/['\\]/\\$&/g;"'$_'"} @EXPORT=($S=store,$R=retrieve);$L=lock_;@EXPORT_OK=($S.'_fd',"fd_$R",$L.$S,$L.$ R);sub D{local($_,$")=(ref(my$f=pop),',');/^S/?E$$f:/^A/?"[@{[map{D($_)}@$f]}]" :/^H/?"{@{[map{E($_),D($f->{$_})}keys%$f]}}":E$f}$M='}sub ';$P='print$f D pop;1 ';($E,$C,$F,$G)=qw|local$/;(eval<$f> ,close$f eval{flock$f {$f=pop;|;$O='{open( $f=gensym,$m.pop)||die if$m="';eval qq/sub $R$O<
;";$E$C)[0]$M$L$R$O<";$F,1};$E$C )[0]$M fd_$R$G$E)[0]$M$S$O>";$P$C$M$L$S$O>";$F,2};$P$C$M$S\_fd$G$P}/;$VERSION=1 http://medaka.5ch.net/test/read.cgi/php/1036141603/309
310: SevenLines の中の人 [sage] 04/04/21 09:33 ID:??? 7ch と 7thread を GPL でパッケージング & Store7 を載せました。 README の変更等ありましたら作業用 uploader の方へお願いします。 http://medaka.5ch.net/test/read.cgi/php/1036141603/310
311: おうら [] 04/05/12 22:12 ID:3q/C0Ti+ リファーを残さずにリダイレクト。JavaScript Off でも動作可能なコード #! /bin/ksh # リダイレクト if [ "$QUERY_STRING" ]; then echo "Pragma: no-cache Refresh: 0; URL=QUERY_STRING\n"; exit; fi # エラー出力 echo "Content-Type: text/html\nPragma: no-cache\n\n<html><head> </head><body>\nリンク先を指定して下さい\n</body></html>" リファーについて参考にしたページ ttp://www.teria.com/~koseki/memo/referrer/ http://medaka.5ch.net/test/read
.cgi/php/1036141603/311
312: おうら [sage] 04/05/12 22:16 ID:??? うぐぅ。上のコード URL=QUERY_STIRNG に $ が抜けてました。 URL=$QUERY_STRING と見て下さい。 http://medaka.5ch.net/test/read.cgi/php/1036141603/312
313: 7vote [sage] 04/05/12 22:40 ID:??? 仕様変更無しでザッと縮め。 use CGI":all";*P=*param;charset$c='EUC-JP';chdir V;($F)=P(f)=~/^(\d+)$/;if(open F,"+<$F"){eval{flock F,2};$t=<F>;/\t/and$D{$`}=$'+0while<F>;($n=P(n))?$D{$n}||= 1:($v=P(v))&&$D{$v}++,seek(F,0,0),print F"$t\n",map"$_\t$D{$_}\n",keys%D if request_method=~PO}$L{$K[$i++]}=$_ for radio_group(v,[@K=sort{$D{$b}<=>$D{$a}} keys%D]);put header,start_html(-Title,$t,encoding,$c,lang,ja),h1($t),startform, table({},Tr[map{td["$L{$_}(
$D{$_})",hr{width,$D{$_}}]}@K]),hr,p(textfield(n), hidden(f,$F),submit),endform,end_html ・hr のグラフは微妙。 ・既に存在する選択肢への投票は、選択肢自体をクリックできた方がより直感的か? http://medaka.5ch.net/test/read.cgi/php/1036141603/313
314: nobodyさん [sage] 04/05/15 10:22 ID:??? open(IN, $ARGV[0].".txt");@lines = <IN>;close(IN); foreach $line (@lines) {if( $line =~ / [a-z0-9]{32}/ ){$hash .= $line;}} open(OUT, ">hash".$ARGV[0].".txt"); print OUT $hash;close(OUT); WinnyBBS の内容を全部コピペ。テキストファイルに保存。 ↓ その中からハッシュを摘出。テキストファイルに出力。 http://medaka.5ch.net/test/read.cgi/php/1036141603/314
315: nobodyさん [sage] 04/05/15 14:15 ID:??? >>314 perl -ne "/ [0-9a-z]{32}/ && print" in.txt > out.txt grep " [0-9a-z]\{32\}" in.txt > out.txt http://medaka.5ch.net/test/read.cgi/php/1036141603/315
316: nobodyさん [] 04/06/11 10:54 ID:iPrFu4uN # 最近、下がり気味なので保守ついでに package BEncode7;use base Exporter;@EXPORT=qw/bencode bdecode/;sub bencode($){ my$i=pop;ref$i eq'HASH'?"d@{[join('',map{bencode($_).bencode($i->{$_})}keys%$i) ]}e":ref$i eq'ARRAY'?"l@{[join('',map{bencode($_)}@$i)]}e":$i=~/^([+-]?\d+)$/? "i${i}e":length($i).":$i"}sub bdecode{local$_=pop;(/^d(.+)e$/s)?{bdecode($1)}:( /^l(.+)e$/s)?[bdecode("$1")]:(s/^i?([+-]?\d+)e//)?(int("$1"),bdecode($_)):( /^(\d+)/&&s/\d+\:(.{$1})//s)?(
"$1",bdecode($_)):undef}7 Convert::BEncodeの7行版。bittorrent等で使われているフォーマット。 http://medaka.5ch.net/test/read.cgi/php/1036141603/316
317: nobodyさん [sage] 04/06/13 17:48 ID:??? >>316 それだとテスト (001_basic.t) 通らないから、 オリジナルからザックリ縮め直してみたよ。 package Bencode7;use strict;use bytes;use base"Exporter";*bencode=*E=sub{no locale;my$i=pop;ref$i eq"HASH"?join("","d",map(E($_).E($i->{$_}),sort keys%$i), "e"):ref$i eq"ARRAY"?join("","l",map(E($_),@$i),"e"):$i=~/^\d+$/?"i${i}e": length($i).":$i"};sub D{my$c=pop;my$i=shift@{$c};$i=~/d/?do{my%h;while(($i= shift@{$c})ne"e"){unshift@{$c},$i;my$k=D($c);$h{$k}=D($c)}
\%h}:$i=~/l/?do{my@l; while(($i=shift@{$c})ne"e"){unshift@{$c},$i;push@l,D($c)}\@l}:$i=~/i/?do{my$n; $n.=$i while($i=shift@{$c})ne"e";$n}:$i=~/\d/?do{my$n="";do{$n.=$i}while($i= shift@{$c})=~/\d/;my$l="";$l.=shift@{$c}for 1..$n;$l}:$c}sub bdecode{D[pop=~ /./gs]}our($VERSION,@EXPORT_OK)=qw(0.01 bencode bdecode) http://medaka.5ch.net/test/read.cgi/php/1036141603/317
318: nobodyさん [] 04/07/14 16:53 ID:I7yo4p0b お題。 ttp://www.webclap.com/ 6行くらいにはなると思う。 http://medaka.5ch.net/test/read.cgi/php/1036141603/318
319: nobodyさん [age] 04/07/14 23:00 ID:??? ム板より http://pc5.2ch.net/test/read.cgi/tech/1051703369/699-700 こういうのはperlとかのが得意そうだったので。 http://medaka.5ch.net/test/read.cgi/php/1036141603/319
320: nobodyさん [sage] 04/07/15 21:20 ID:??? while($act ne "ガッ"){ print "ぬるぽ\n"; $act = <STDIN>; chomp($act); } print "撃退\n"; sleep(1); http://medaka.5ch.net/test/read.cgi/php/1036141603/320
321: nobodyさん [sage] 04/07/24 18:39 ID:??? これってphpじゃだめなん？ http://medaka.5ch.net/test/read.cgi/php/1036141603/321
322: nobodyさん [sage] 04/07/24 18:52 ID:??? >>321 個人的には WebPlog らしいお題なら言語は何でも いいと思うけど。てかこんなんはやった者勝ちかと。 http://medaka.5ch.net/test/read.cgi/php/1036141603/322
323: nobodyさん [sage] 04/07/24 20:08 ID:??? とりあえずPHP5+SQLiteな一行掲示板。フォーム部分は分離させた。 <form action=bbs.php method=post>名前:<input type=text name=n>一言:<input type=t ext name=t size=60><input type=submit value=送信></form> <? $d=sqlite_open('l');$n=$_POST['n'];if(!@sqlite_query($d,'SELECT * FROM b;')){ sqlite_query($d,'CREATE TABLE b(n,t,d);');}$t=$_POST['t'];$z=date("Y/m/d H:i:s") ;if($n!=''&&$t!=''){$s="INSERT INTO b(n,t,d) VALUES(\"$n\",\"$t\",\"$z
\");";sqli te_query($d,$s);}print "<hr>";$r=sqlite_query($d,"SELECT * FROM b ORDER BY d DES C");$c=0;while(($a=sqlite_fetch_array($r))&&$c<50){print htmlspecialchars($a['n' ])."：".htmlspecialchars($a['t'])."[".$a['d']."]<br><hr>\n";$c++;}sqlite_close($ d); ?> DBファイルとテーブル勝手に作る方式。新着順、50件まで（ただしDBからは消してない）。 読みにくいけどSQLiteの使い方の勉強に…ならんか。 http://medaka.5ch.net/test/read.cgi/php/1036141603/323
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 129 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
ｱﾎﾞﾝOFF
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.011s