# readdir.pl
# 内容 :　フォルダ内のファイル名を出力
# Copyright (c) 2002-2013 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)
# 使用方法 : c:\>perl readdir.pl
#
$path	=	"c:/Perl64/html/";
opendir(IN1,$path);
open(OUT1,">filename.txt");
while	($filename	=	readdir(IN1))	{	
	print	OUT1	$filename,"\n"	if	-f	$path.$filename;
}
closedir(IN1);	
close(OUT1);
