# collect.pl
# 内容 :フォルダ内のファイル名を読み込み、そのすべてのデータを１つにまとめる
# Copyright (c) 2002 Mitsuo Minagawa, All rights reserved.
# (minagawa@fb3.so-net.ne.jp)
# 使用方法 : c:\>perl collect.pl
#
open(IN1,"filename.txt");	
open(OUT1,">output.txt");	
while	($filename	=	<IN1>)	{	
	chomp($filename);	
	open(IN2,"$filename");	
	while	($data	=	<IN2>)	{	
		print	OUT1	$data;	
	}	
}	
close(IN1);	
close(IN2);	
close(OUT1);
