#! /usr/local/bin/perl ############設定############ #検索する拡張子 #（以下と同じ方式で追記又は削除して下さい） @kak_list = ('html','htm','jpg','gif','mid','swf','class','lzh','zip','cgi','pl'); #検索ディレクトリ $MAX = 5; ############################ #作成者）ぼくぴ #公開日）7/2,2000 ############################ $deep= '';$size = 0;$cnt = 0; print "Content-type: text/html\n\n"; print ""; foreach $kak(@kak_list){ for($i=0;$i<$MAX;$i++) { $deep = '/*' x $i; @file_list = glob(".$deep/*.$kak"); foreach $f_list(@file_list){ $size =+ (stat($f_list))[7]; $cnt++; } } $size = $size%1024; print ""; $cnt=0;$size=0; } print "

拡張子	ファイル数	ファイルサイズ（kb）
$kak	$cnt	$size

"; #EOF