七行プログラミング

七行プログラミング at PHP

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

250:SevenLines の中の人
 04/02/22 20:17 
とりあえず 7wiki, 7files, 7search, 7rss, 7blosxom を GPL で 
パッケージングしときました。README やライセンス文書の 
和訳同梱までは手が回らなかったので、その辺はご希望が 
あれば追々。 
 
あー、ココに載せるにゃデカ目のファイルのやり取り用に 
7uploader 改良して設置しますかのぅ(笑)。 
 
7Unit, 7uploader, 7hoo もその内転載させてもらいますね。

251:nobodyさん
 04/02/22 23:23 
7wiki と 7uploader 。どちらも shebang 無し七行ルールじゃないと辛いですな。 
 
use CGI":all";charset$c='EUC-JP';$w='\b(([A-Z][a-z]+){2,})';$f=script_name;$/=( 
);($p)=(path_info||FrontPage)=~/$w/;if(open F,($m=param z)?">$p":$p){eval{flock 
F,2};print F$m||=<F>;close F}param(d)eq"D"&&unlink$p;$_=pre(escapeHTML$m).hr.ul 
map{li"".localtime((stat)[9]),$_}sort{-M$a<=>-M$b}grep/^$w$/&-f,<*>;s|$w|(!-f$1 
&&$1).a{href,"$f/$1"},-f$1?$1:"?"|eg;put header,start_html(-title=>$p,encoding, 
$c,lang,ja),h1($p),startform(0,"$f/$p"),p(textarea(z,$m,6,60),br,map{submit d,$ 
_}Write,Delete),endform,hr,$_,end_html 
 
・削除機能の実装案。 
 
use CGI":all";$CGI::POST_MAX=1024000;$/=\4096;sub v{open(F,pop)||die;binmode F} 
chdir D;if($f=upload f){$f=~/\.\w+$/;v">".time.$&;print F$_ while<$f>;close F}$ 
i++<20?push@f,$_:unlink for sort{-M$a<=>-M$b}<*>;($_=param d)?(v($_),put header 
(-Content_length=>-s,attachment,$_,Type,'application/octet-stream'),<F>):put( 
header,start_html,start_multipart_form,filefield(f),submit,endform,hr,table({ 
border,1},Tr[th([qw/name date size/]),map{td([a({href,"?d=$_"},$_),''.localtime 
((stat)[9]),-s])}@f]),end_html) 
 
・ファイル名を time に。 
・最大保存数を設定可能に。

次ページ