七行プログラミング (452ﾚｽ)
上下前次1-新
304: nobodyさん [sage] 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>>1010(3): nobodyさん [sage] 02/11/01 19:53 ID:??? AAS
ワーイ 3行にナッター 有難う。
まだまだperl勉強中の身ですー
).KB]}@f]),end_html)
・ファイルサイズを KB で表示。
上下前次1-新書関写板覧索設栞歴
あと 148 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.013s