#
#Yahoo!知恵袋専用
#質問ID，回答IDをそれぞれ質問者ID，回答者IDに変換
#
#		author	akinori-i
#		
#		◇入力
#			・回答ファイル，質問ファイル
#		
#		◇出力
#			参照関係表txtファイル
#
#		◇使用法
#			コマンドラインでマージするファイルを並べて以下のコマンドをたたく（要 Perl 5以上）
#			perl QuestionAnswerTable.pl que_200001.txt answer_200001.txt
#
#
#�@質問ファイルについて
#質問ファイルを読み込み，質問IDと質問者IDをハッシュで結ぶ
#	↓
#�A回答ファイルについて
#回答IDと回答者IDをハッシュで結ぶ
#
#�B参照関係ファイル作成
#
#


#
use strict;
use warnings;


my $filename;
my @questionline;
my %questionkey;
my @answerline;


&table();


sub table {


#＜質問ファイル＞質問IDと質問者IDをハッシュで結ぶ#########################################
	$filename=$ARGV[0];
	open QUESTION,"$filename";
	$filename =~ tr/0-9/ /cd;
	while($_=<QUESTION>){
		@questionline = split(/\t/,$_);
		$questionkey{$questionline[0]} = $questionline[1];
	}
	close(QUESTION);
#########################################################################################

#回答ファイルから質問者と回答者を抽出し，参照関係表ファイルに書き込み#####################
	open ANSWER,"$ARGV[1]";
	while($_=<ANSWER>){
		@answerline = split(/\t/,$_);
		#$answerkey{$answerline[0]} = $answerline[2];
		#print "$questionkey{$answerline[1]}\n"
		$answerline[2] =~ s/\n//g;
		$questionkey{$answerline[1]} =~ s/\n//g;
		open TABLE, ">>$filename.txt" or die "cannot open savefile.\n";
		print TABLE "$answerline[2]	$questionkey{$answerline[1]}\n";
		#print "$answerline[2]";
		close(TABLE);
	
	}
#########################################################################################
}