#Yahoo!知恵袋オリジナル(質問ファイル用)
#Nか月窓用にファイルをマージする
#		author	akinori-i
#
#		◇入力
#			・マージするファイル
#		
#		◇出力
#			・マージしたファイル（198303.txt）
#			「質問番号	質問者ID」
#
#		◇使用法
#			コマンドラインでマージするファイルを並べて以下のコマンドをたたく（要 Perl 5以上）
#			perl Merge.pl data1_1983-01.tsv data2_1983-02.tsv ・・・
#
#		◇注意
#			何か月分をマージするか指定する(デフォルトはN=3)
#


use strict;
use warnings;

my $n = 3;							#マージするファイル数
my $filename;
my $filename1;
my @name;
my @line;

&merge();

sub merge {
	$filename = $ARGV[0];
	#print "$filename\n";
	@name = split(/\./,$filename);
	#print "@name\n"; 
	$filename = $name[0];
	$filename =~ tr/\-//d;

	
	open NEWTXT, ">>$filename.txt" or die "cannot open savefile.\n";

	for (my $i=0; $i<$n; $i++){
		$filename1=$ARGV[$i];
		open FILE,"$filename1";
		while(<FILE>){
			@line = split(/\t/,$_);
			print NEWTXT "$line[0]	$line[4]\n";
			#print NEWTXT "@line";
		}
	}
	close(NEWTXT);
}