#!perl
# return filename

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

# アウトプットファイル
$outputfolder = ">E:\\document\\tmp\\";

if ($#ARGV == -1){
	$dir = ".";
} else {
	$dir = $ARGV[0];
}

opendir DIR, $dir;
@filelist = readdir DIR;
closedir DIR;

push @outlist, "\t" . $dir . "\n";

foreach $file (@filelist)
{
	if ($file =~ /\.$|\.($condition)$/){
		print "$file    ---->    skip.\n";
	} else {
		$file = $file . "\n";
		push @outlist, $dir . '\\' . $file;
	}
}

$dir =~ s/.*\\(.+)$/$1/;
$dir =~ s/(.*)\\/$1/;

open OUT, "$outputfolder$dir.txt";
print OUT @outlist;
close OUT;

exit;