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

---

294: 04/03/23 17:07 ID:??? 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);put"Location: $s.cgi?$p\n\n"}else{if(open H,$q=$ARGV[0])
{$f.=$_ while(<H>)}put header,start_html(-title=>$s,encoding,$c,lang,ja),h1($s)
,ul($l),startform(-onSubmit=>"return confirm('OK?')",post,"$s.cgi"),p(textfield
f,$q),p(textarea t,$f,9,82),p(submit regist),endform,end_html}

---

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

---

あと 158 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.007s