七行プログラミング (452ﾚｽ)
上下前次1-新

---

110: 02/12/01 12:51 ID:??? AA×
>>109>>108


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
110: [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
だとディレクトリのサイズ０が返ってきていた これも環境に依存するのか で 置換してスクリプト長くなってるしそろそろ のファイルサイズを直して完成かな

---

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

---

あと 342 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.032s