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

---

105: 02/11/30 03:07 ID:??? AA×


[240|320|480|600|100%|JPG|べ|ﾚｽ栞|ﾚｽ消]
105: [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
ありゃ本当に全然拘ってなかったのね えぇ行末の桁揃えに夢中だったので に変更 ファイルをチェックしてテキストにディレクトリ名を入れてで ファイルをディレクトリに移動します

---

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

---

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

---

ぬこの手 ぬこTOP 0.036s