七行プログラミング

[295 nobodyさん 04/03/23 18:36 ID:???]

#! /usr/bin/perl
use CGI":all";charset$c='EUC-JP';*b=*param;opendir H,"./";while($i=readdir H){$
l.=li a{href,($s='7editor').".cgi?$i"},$i}if(request_method=~/POST/){open H,">"
.($n=b F);$_=b T;s/[\r\n|\r[^\n]]/\n/g;print H;put redirect"$s.cgi?$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?')",,"$s.cgi"
),p(textfield F,$q),p(textarea T,$f,9,82),p(submit regist),endform,end_html}

環境によって改行コードが変わってしまうバグを修正。結構ギリギリ。