# perl makePajekMacro4calculateBetweennessCentrality.pl ○○ △△ □□ ××
	# Pajekで中心性を計算するMacroファイルを作るためのプログラム
	# ○○にプロジェクト名 e.g.) Apache，GIMP・・・ ，△△にサブコミュニティ名 e.g.) dev，user，merge
	# □□に開始年月 e.g.) 200111 ，××に終了年月 e.g.) 200612 を引数とする

	# 注）厳密じゃないとダメ　プロジェクト名(大文字小文字は区別する)　年月は6桁
	#　　 存在しないプロジェクト名や年月を入れてもはじくようにはしていない
	
	# あと，ディレクトリ名は"プロジェクト名.サブコミュニティ名"にしているので編集はご自由に



 ######################################## 編集部分(必要に応じて) #############################################
 #                                                                                                           #
 #                                                                                                           #
	# Netファイルのありかと計算した中心性を保存するディレクトリのパスを指定                                  
	$directoryPass4NetFile = "D\:\\SNA\\proposalMetrics\\data\\pajekFile\\";
	$directoryPass4metricsData = "D\:\\SNA\\proposalMetrics\\data\\metricsData\\";
 #                                                                                                           #
 #                                                                                                           #
 #############################################################################################################


	# 引数の値を変数にほうりこむ
	$communityName = lc($ARGV[0]);
	$subCommunityName = lc($ARGV[1]9;
	$startDate = $ARGV[2];
	$endDate = $ARGV[3];

	# サブコミュニティ名に応じてファイルの拡張子を変える
	if($subCommunityName eq "dev" || $subCommunityName eq "user"){
		$fileType = "net";
	}
	elsif($subCommunityName eq "merge"){
		$fileType = "paj";
	}

	# 開始から終了までの期間を配列へ
	my @arrayData;
	$elementNumOfArray = 1;
	
	$yearStart = int($startDate / 100);
	$monthStart = int($startDate - ($yearStart*100));
	
	# 終了年月をもとにループの終了条件を定める
	$yearLast = int($endDate / 100);
	$monthLast = int($endDate - ($yearLast*100));

	# 配列(@arrayData)へほうりこむ
	for($i=$yearStart;$i<=$yearLast;$i++){
		for($j=$monthStart;$j<=12;$j++){
			if($j < 10){
				$arrayData[$elementNumOfArray] = $yearStart."0".$j;
				$elementNumOfArray++;
			}
			else{
				$arrayData[$elementNumOfArray] = $yearStart.$j;
				$elementNumOfArray++;
			}

			# ループの終了条件を満たした場合は強制終了
			if($i == $yearLast && $j == $monthLast){
				last;
			}
		}
		$monthStart = 1;
		$yearStart++;
	}

 ######################################## Macroファイルの作成開始 #############################################


	print "NETBEGIN 1\n";
	print "CLUBEGIN 1\n";
	print "CLSBEGIN 1\n";
	print "HIEBEGIN 1\n";
	print "VECBEGIN 1\n";
	print "\n";

	for ($i=1;$i<=$#arrayData;$i++) {
		print "Msg Reading Pajek Project File   \-\-\-    ",$directoryPass4NetFile,$communityName,"\.",$subCommunityName,"\\",$subCommunityName,"_",$arrayData[$i],"\.",$fileType,"\n";
		print "Msg Reading Network   ---    ",$subCommunityName,"_",$arrayData[$i],"\.",$fileType,"\n";
		print "Msg Reading Partition   ---    ",$subCommunityName,"_",$arrayData[$i],"\.",$fileType,"\n";
		print "N 9999 RDPAJ ",$directoryPass4NetFile,$communityName,"\.",$subCommunityName,"\\",$subCommunityName,"_",$arrayData[$i],"\.",$fileType,"\n";
		print "Msg Betweenness centrality of ",$i,"\. ",$subCommunityName,"_",$arrayData[$i],"\.",$fileType,"\n";
		print "V ",$i," BETWEEN ",$i,"\n";
		print "V ",$i," WV ",$directoryPass4metricsData,$communityName,"\.",$subCommunityName,"\\","mergeBetweenness_",$arrayData[$i],"\.vec\n";
		print "\n";
	}


 ######################################## Macroファイルの作成終了 #############################################