七行プログラミング (452レス)
前次1-
抽出解除 レス栞

304: 04/03/29 10:25 ID:??? AAS
巻き戻り分。

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 で表示。
前次1-
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ アボンOFF

ぬこの手 ぬこTOP 1.145s*