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

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

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

---

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

---

108: nobodyさん [sage] 02/12/01 07:42 ID:??? give up 気味。(´Д｀; use CGI':all';use File::Copy;$d=path_info;*b=*param;chdir".$d";$N=b N;$F=b F;%m =qw(MV move$F,$N CP copy$F,$N RM unlink$F MD mkdir$N,511 RD rmdir$F);eval$m{b S };opendir D,".";($c=$f=script_name)=~s|/[^/]+$||;put header,start_html('7files' ),startform(0,$f.$d),table(Tr[map{td[checkbox(F,0,$_,''),a({href,(-d$_?$f:$c). "$d/$_"},$_),-s||DIR,"".localtime((stat)[9])]}sort grep!/^\./,readdir D]), textfield(N),(map{submit S,$_}keys%m),endform,end_html param のエイリアスを b にしたのは、p 要素の p() を 使えるようにする為の布石。 > p(F); を p F; って表記 大丈夫っぽいです。 http://medaka.5ch.net/test/read.cgi/php/1036141603/108

110: nobodyさん [sage] 02/12/01 12:51 ID:??? >109 Win/ActivePerlだとディレクトリのサイズ０が返ってきていた これも環境に依存するのか。。 -d _?DIR:-s _ でok ? use CGI':all';use File::Copy;$_='$d=path_info;*b=*param;chz".$d";$N=b N;$F=b F; %m=qw(MV move$F,$N CP copy$F,$N RM unlink$F MD mkz$N,511 RD rmz$F);eval$m{b S} ;openz D,".";($c=$f=script_name)=~s|/[^/]+$||;put header,start_html("7files") ,startform(0,$f.$d),table(Tr[map{td[checkbox(F,0,$_,""),a({href,(-d$_?$f:$c) ."$d/$_"},$_),-d _?DIR:-s _,"".localtime((stat)[9])]}sort grep/^[^.]/,readz D]),textfield(N),(map{submit S,$_}keys%m),endform,end_html';s/z/dir/g;eval 置換してスクリプト長くなってるし。。。そろそろ give up >108 のファイルサイズを直して、完成かな http://medaka.5ch.net/test/read.cgi/php/1036141603/110

---

ﾒﾓ帳

(0/65535文字)

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ ｱﾎﾞﾝOFF

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.032s