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

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

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

---

105: nobodyさん [sage] 02/11/30 03:07 ID:??? > ありゃ。本当に全然拘ってなかったのね。w えぇ。行末の桁揃えに夢中だったので。。ｗ use CGI':all';use File::Copy;$d=path_info;*p=*param;opendir D,$e=".$d/";$F=p(F) ;$N=$e.p(N);($_=p(S))=~/MV/?move$F,$N:/CP/?copy$F,$N:/RM/?unlink p(F):1;($c=$f= script_name)=~s|/[^/]+$||;put header,start_html('7files'),startform(0,$f.$d), table(Tr[map{$i="$d/$_";($l,$s)=-d".$i"?($f.$i,DIR):($c.$i,-s _);td({bgcolor,( white,silver)[$t^=1]},[checkbox(F,0,".$i",''),a({href,$l},$_)

,$s,"".localtime(( stat)[9])])}sort grep!/^\./,readdir D]),textfield(N),map(submit(S,$_),MV,CP,RM) ,endform,end_html - rename --> File::Copy#move に変更。 ファイルをチェックして、テキストにディレクトリ名を入れてＭＶで ファイルをディレクトリに移動します。 = TODO mkdir, rmdir http://medaka.5ch.net/test/read.cgi/php/1036141603/105

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.016s