#!perl
# return filename

# スキップ条件
$condition = "pl|bak|BAK|tmp";

# アウトプットファイル
$outputfile = ">.\\output.txt";

# 対象フォルダ
@dir = ( '.' );

foreach $dirname (@dir){
	opendir DIR, $dirname;
	@filelist = readdir DIR;
	closedir DIR;

	$dirname =~ /\\([^\\]*)\\[^\\]*$/;
	push @outlist, "●$1\n";

	foreach $file (@filelist){
		if ($file =~ /\.$|\.($condition)$/){
			print "$file    ---->    skip.\n";
		}
		else {
			$filename = $dirname . '\\' . $file;
			@stat = stat($filename);
			push @outlist, sprintf("%10d",$stat[7]) . " bytes\t";
			push @outlist, printDate($stat[9]) . "更新\t";
			$file = $file . "\n";
			push @outlist, $file;
		}
	}
	push @outlist, "\n";
}

open OUT, "$outputfile";
print OUT printDate(time) . " 現在\n\n";
print OUT @outlist;
close OUT;

exit;

sub printDate{
	local($mday,$mon,$year) = (localtime($_[0]))[3..5];
	$year += 1900;
	$mon += 1;
	$mon = sprintf("%02d",$mon);
	$mday = sprintf("%02d",$mday);
	return "$year/$mon/$mday";
}