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

---

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

---

109(1): 02/12/01 08:40 ID:??? AAS
ディレクトリは別にサイズ取れない訳じゃないので
-s||DIR は駄目ですな…。

---

110: 02/12/01 12:51 ID:??? AAS
>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 のファイルサイズを直して、完成かな

---

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

---

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

---

ぬこの手 ぬこTOP 0.016s