七行プログラミング (452ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

293: 04/03/23 16:33 ID:C7ISjwar(1)調 AAS
#! /usr/bin/perl
use CGI":all";charset$c='EUC-JP';opendir(H,"./");$s='7editor';while($i=readdir
H){$l.=li a {href,"$s.cgi?$i"},$i}if(request_method eq'POST'){$p=param(f);open(
H,">$p");print H param(t);print"Location: $s.cgi?$p\n\n"}else{$q=$ARGV[0];if($q
){open H,$q;$f.=$_ while(<H>)}put header,start_html(-title=>$s,encoding,$c,lang
,ja),h1($s),ul($l),startform(post,"$s.cgi"),p(textfield f,$q),p(textarea t,$f,9
,82),p(submit regist),endform,end_html}

●7editor.cgi
サーバ上のファイルを直接編集できます。ファイル名欄を変えれば新規作成も可能です。
textareaのサイズは、一応七行プログラミングを組みやすいかと思われる82x9にしてみました。

ToDo:
・セキュリティ対策
・ディレクトリ移動
・ファイル削除くらいはできた方がいいかも

とりあえずたたき台ってことで。

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.046s*