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

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

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

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

---

204: nobodyさん [] 03/12/07 03:57 ID:enSfwhvY >201 参加してたんだw。どぉも。一年ぶりです。 <- 7blosxomのプロトタイプ提供者(===7wiki)です。 > http://cm.xrea.cc/ に載せていいですか? 他にも幾つかストックあるので、公開時には掲載よろしくお願いします。m(_ _)m http://medaka.5ch.net/test/read.cgi/php/1036141603/204

205: 7uploader [] 03/12/07 09:25 ID:enSfwhvY もっと詰めてからにしようと思ったけど、とりあえず公開します。後はよろしく:) #!/usr/bin/perl use CGI':all';$CGI::POST_MAX=1024*1000;chdir D;if($u=upload u){open F,">./$u"or die;binmode F;while(read$u,$b,1024){print F$b}close F}@f=sort{-M$a<=>-M$b}<*>;( ($_=param d)&&grep/^$_$/,@f)?do{open F,$_;put header(-Content_length=>-s, attachment=>$_,-type=>"application/octet-stream"),<F>}:do{put header,start_html ,start_multipart_form,filefield(u),submit,endform,hr,table({-border=>1},Tr[th([ qw/name size date/]),map{td([a({href,"?d=$_"},$_),-s,''.localtime((stat)[9])])} @f]),end_html} __END__ TODO [ ] 保存するファイル名のチェック。 uploadされたphpやshtmlが実行されるのを防止,や../等の対策。 [*] 出力するファイル名のチェック。 [ ] binary ファイルの取扱。(for windows) [ ] 他のブラウザへの対応。 http://medaka.5ch.net/test/read.cgi/php/1036141603/205

207: nobodyさん [] 03/12/07 20:49 ID:enSfwhvY Socket関連も、環境に依存する定数があったと思う。 後、ls コマンドの実装。 環境 Linux NetKit0.17 telnet で動作確認。(line mode) > env | grep TERMCAP TERMCAP=SC|screen|VT 100/ANSI X3.64 virtual terminal:\ use Socket;socket S,PF_INET,SOCK_STREAM,getprotobyname'tcp';setsockopt S, SOL_SOCKET,SO_REUSEADDR,1;bind S,sockaddr_in 1029,INADDR_ANY;listen S,1;{accept C,S;binmode C;select C;$|=1;$n="\r\n";print$p='$ ';while($_.=getc C){if(length ==1){s/^[$n\x00]//}elsif(s/[$n]$//){/^exit$/&&last;(/^cd\s*(.*)/)?chdir$1:print join$n,(map{s/[$n\z]//g;$_}`$_`),$p;$_=''}}close C;redo} character mode では、local echoが返らなかった。 端末への対応、悪化してたりしたらゴメン(焦 http://medaka.5ch.net/test/read.cgi/php/1036141603/207

---

ﾒﾓ帳

(0/65535文字)

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.023s