七行プログラミング

[304 nobodyさん 04/03/29 10:25 ID:???]

巻き戻り分。

304 ：7uploader ：04/03/25 21:16 ID:???
　　use CGI":all";$CGI::POST_MAX=1<<20;$/=\4096;chdir D;sub v{open(F,pop)?binmode F
　　:die}if(($f=upload f)=~/\.\w+$/){v">".time.$&;print F while<$f>;close F}++$i<51
　　?push@f,$_:unlink for sort{$b<=>$a}<*>;($_=param d)?(v($_),put header(-type,
　　'application/octet-stream',Content_length,-s,attachment,$_),<F>):put(header,
　　start_html,start_multipart_form,filefield(f),submit,endform,table({border,1},Tr
　　[map{td[a({href,"?d=$_"},$_),''.localtime+(stat)[9],(-s>>10).KB]}@f]),end_html)

　　・ファイルサイズを KB で表示。