思路根据目前的导出log格式，进行补充 3个信息

#!perl -w
use strict;
use Data::Dumper;
use File::Basename;

my $BinPath =  (map{s#\n##g;$_} `cd`)[0];
$BinPath .= "\\";
my $OutPutDir = $BinPath."..\\result\\";
my $InFileHandle;
my $OutFileHandle;
my %ColName2Index;
my @SignalingArray;
my @SCELL_CArray;
my @RNTI_CArray;
my @IndexArray;
my @TimeArray;		
my @SignalingDataArray;
my @UETimeStampArray;
my $FileLineNum = 0;
#####################################
my $SignalingName = "Signaling";
my $RNTI_CName = "RNTI_C";	
my $SCELL_CName ="SCell ID";
my $IndexName ="Index";
my $TimeName ="Time";
my $SignalingDataName = "Signaling Data"; 
my $UETimeStampName = "UE Timestamp";
#####################################
&main();

sub main()
{
	&ProcessADir();
}

sub ProcessADir(){
	my @AllFiles = <..\\data\\*>;
	my @AProcessFiles = grep {m/csv$/ && !m$~$} @AllFiles;
	my $AFile;
	foreach $AFile (@AProcessFiles)
	{
		print "\nProcess $AFile \n";
		&ProcessAFile($BinPath."\\".$AFile);
	}
}

sub ProcessAFile(){
	my $InFilePath = shift @_;
	open($InFileHandle,"<",$InFilePath) or die "can't open file $InFilePath for $!\n";
	my $FirstLine = <$InFileHandle>;
	$FirstLine =~ s#\r##g;
	$FirstLine =~ s#\n##g;	
	%ColName2Index = () ;
	@SignalingArray = ();
	@SCELL_CArray =();
	@RNTI_CArray = ();
	@IndexArray = ();
	@TimeArray = ();		
	@SignalingDataArray = ();
	@UETimeStampArray = ();
	
	&GetColumnName($FirstLine);
#	print Dumper %ColName2Index;
	my $Line;
	my $SignalingIndex = $ColName2Index{$SignalingName};
	my $RNTI_CIndex = $ColName2Index{$RNTI_CName};	
	my $SCELL_CIndex = $ColName2Index{$SCELL_CName};
	my $IndexIndex = $ColName2Index{$IndexName};
	my $TimeIndex = $ColName2Index{$TimeName};	
	my $SignalingDataIndex = $ColName2Index{$SignalingDataName};
	my $UETimeStampNameIndex = $ColName2Index{$UETimeStampName};	
 
	#print "ColIndex : $IndexIndex,$TimeIndex,$SignalingDataIndex,$SignalingIndex,$RNTI_CIndex,$SCELL_CIndex \n";
 
	unless (defined ($SignalingIndex) && defined($RNTI_CIndex) && defined($SCELL_CIndex) &&
		defined ($IndexIndex) && defined($TimeIndex) && defined($SignalingDataIndex && defined($UETimeStampNameIndex))
		){
		die "cant 't find $SignalingName,$RNTI_CName,$SCELL_CName,$IndexName,$TimeName,$SignalingDataName.\n";
	}
	my $Signaling; my $RNTI_C; my $SCELL_C;my $UETimeStamp; my $Time;my $SignalingData;
	while(defined($Line = <$InFileHandle>)){
	
		$Line =~ s#\r##g;
		$Line =~ s#\n##g;	
		
		if ($Line =~ /log$/){
			next;
		}			
		unless (defined($Line) and $Line ne ""){
			next;
		}
		#print "$Line \n";
		my @AllDataCols = split /,/,$Line;
		
		($UETimeStamp,$Time,$SignalingData,$Signaling,$RNTI_C,$SCELL_C) = 
			@AllDataCols[$UETimeStampNameIndex ,$TimeIndex,$SignalingDataIndex,$SignalingIndex,$RNTI_CIndex,$SCELL_CIndex];
		

		
		$RNTI_C = ""  unless defined($RNTI_C);
		$SCELL_C = ""  unless defined($SCELL_C);		
		#print "$Signaling,$RNTI_C,$SCELL_C \n";
		
		push @SignalingArray,$Signaling;
		push @RNTI_CArray,$RNTI_C;		
		push @SCELL_CArray,$SCELL_C;	
		push @UETimeStampArray,$UETimeStamp;
		push @TimeArray,$Time;		
		push @SignalingDataArray,$SignalingData;			
		
	}
	$FileLineNum = scalar (@SignalingArray);
	print "File Line : $FileLineNum\n";
	&ProcessRNTI();
	&ProcessSCellID();	
	&OutPutFile($InFilePath);

}

sub OutPutFile(){
	my $OutFilePath = shift @_;
	$OutFilePath = $OutPutDir.basename($OutFilePath);
	#$OutFilePath =~ s#csv#txt#;
	open($OutFileHandle,">",$OutFilePath) or die "can't open file $OutFilePath for $!\n";
	my $IndexScan = 0;
	print $OutFileHandle  "Time1,Time2,MsgName,EnbId,CellId,Rnti,SignalingData\n";
	while($IndexScan < $FileLineNum) {

		print $OutFileHandle "2014-02-27 $TimeArray[$IndexScan],";	
		print $OutFileHandle "$UETimeStampArray[$IndexScan],";
		print $OutFileHandle "$SignalingArray[$IndexScan],";
		
		my $SCellValue = $SCELL_CArray[$IndexScan]; my $ENID="";my $CellID="";
	#	print "SCellValue : $SCellValue\n";
		if (defined($SCellValue) and  $SCellValue ne ""){
			if($SCellValue =~ /\((\d+)-(\d+)\)/){
			$ENID = $1;
			$CellID = $2;
			}
		}
		print $OutFileHandle "$ENID,";
		print $OutFileHandle "$CellID,";	
		my $RntiValue = $RNTI_CArray[$IndexScan];
		$RntiValue = hex($RntiValue);
		print $OutFileHandle "$RntiValue,";
		my $SSignalingData = $SignalingDataArray[$IndexScan];
		#$SSignalingData  =~ s#\s+##g;
		print $OutFileHandle "$SSignalingData";		
		print $OutFileHandle  "\n";
		$IndexScan++;
	}
}
 

sub ProcessSCellIDMessageAnalysis(){
	my ($BeginNO,$EndNO) = @_;
	my $BeginSCELLIDValue = $SCELL_CArray[$BeginNO];
	my $EndSCELLIDValue = $SCELL_CArray[$EndNO];	
	my  $Index = $BeginNO+1;
	my $LastIndex = $EndNO+2;
	if ($LastIndex >= $FileLineNum){
		$LastIndex = $FileLineNum;
	}
	my $ARangeMessageName = join ",",  (@SignalingArray)[$Index..$LastIndex];
#	print "RangeMessage: $ARangeMessageName \n";
	my $SingalName = $SignalingArray[$Index];
	if ( $ARangeMessageName =~ /RRCConnectionRequest/  || 
			 $ARangeMessageName =~ /RRCConnectionRelease/ ||
			 $ARangeMessageName =~ /RRCConnectionReestablishmentRequest/ ||
			 $ARangeMessageName =~ /RRCConnectionReestablishment/)
	{
		return;
	}
	if ( $ARangeMessageName =~ /(.*)RRCConnectionReconfigurationComplete,MasterInformationBlock/){
#		print "compare before value: $1 \n";
		my $BeforeMessageJoinInfo = $1;
		if ($BeforeMessageJoinInfo =~ /(.*)RRCConnectionReconfigurationComplete,MasterInformationBlock/){
			return;
		}
		my @BeforeMessageNames = split /,/,$1;
		my $FillBeginCount = scalar(@BeforeMessageNames);
	#	print "$FillBeginCount \n";
		my  $SmallIndex = $BeginNO+1;
		while ($SmallIndex<=$BeginNO+$FillBeginCount){
			$SCELL_CArray[$SmallIndex] = $BeginSCELLIDValue;
			$SmallIndex++;
		}
		while ($SmallIndex<$EndNO){
			$SCELL_CArray[$SmallIndex] = $EndSCELLIDValue;
			$SmallIndex++;
		}		
		
	}
	else{
		return;
	}
}
sub ProcessSCellRange(){
	my ($BeginNO,$EndNO) = @_;
	my $BeginSCELLIDValue = $SCELL_CArray[$BeginNO];
	my $EndSCELLIDValue = $SCELL_CArray[$EndNO];
	if ($BeginSCELLIDValue  eq  $EndSCELLIDValue){
		my  $Index = $BeginNO+1;
		while ($Index<$EndNO){
			$SCELL_CArray[$Index] = $BeginSCELLIDValue;
			$Index++;
		}
	}
	else{
		&ProcessSCellIDMessageAnalysis($BeginNO,$EndNO);
	}
}
sub ProcessSCellID()
{
	my $BeginNO = -1;
	my $CurSCellID = "";
	my $CurNO = 0;
	foreach $CurSCellID (@SCELL_CArray){
		if ($CurSCellID eq "" || $CurSCellID eq "0"){
			 
		}else{
			 #处理之上为空的
			unless ($BeginNO ==-1 || $BeginNO==($CurNO-1)){
	#			print "will process $BeginNO,$CurNO \n";
				&ProcessSCellRange($BeginNO,$CurNO);	
			}
			$BeginNO = $CurNO;
		}
		$CurNO++;
	}
#	print "SCellID:\n";
#	print Dumper @SCELL_CArray;
}

sub ProcessMessageAnalysis(){
	my ($BeginNO,$EndNO) = @_;
	my $BeginRNTIValue = $RNTI_CArray[$BeginNO];
	my $EndRNTIValue = $RNTI_CArray[$EndNO];
	my  $Index = $BeginNO+1;
	my $LastIndex = $EndNO+2;
	if ($LastIndex >= $FileLineNum){
		$LastIndex = $FileLineNum;
	}
	my $ARangeMessageName = join ",",  (@SignalingArray)[$Index..$LastIndex];
#	print "RangeMessage: $ARangeMessageName \n";
	my $SingalName = $SignalingArray[$Index];
	if ( $ARangeMessageName =~ /RRCConnectionRequest/  || 
			 $ARangeMessageName =~ /RRCConnectionRelease/ ||
			 $ARangeMessageName =~ /RRCConnectionReestablishmentRequest/ ||
			 $ARangeMessageName =~ /RRCConnectionReestablishment/)
	{
		return;
	}
	if ( $ARangeMessageName =~ /(.*)RRCConnectionReconfigurationComplete,MasterInformationBlock/){
	#	print "compare before value: $1 \n";
		my @BeforeMessageNames = split /,/,$1;
		my $FillBeginCount = scalar(@BeforeMessageNames);
	#	print "$FillBeginCount \n";
		my  $SmallIndex = $BeginNO+1;
		while ($SmallIndex<=$BeginNO+$FillBeginCount){
			$RNTI_CArray[$SmallIndex] = $BeginRNTIValue;
			$SmallIndex++;
		}
		while ($SmallIndex<$EndNO){
			$RNTI_CArray[$SmallIndex] = $EndRNTIValue;
			$SmallIndex++;
		}		
		
	}
	else{
		return;
	}
}
sub ProcessRNTIRange(){
	my ($BeginNO,$EndNO) = @_;
	my $BeginRNTIValue = $RNTI_CArray[$BeginNO];
	my $EndRNTIValue = $RNTI_CArray[$EndNO];
	if ($BeginRNTIValue  eq  $EndRNTIValue){
		my  $Index = $BeginNO+1;
		while ($Index<$EndNO){
			$RNTI_CArray[$Index] = $BeginRNTIValue;
			$Index++;
		}
	
	}
	else{
		&ProcessMessageAnalysis($BeginNO,$EndNO);
	}

}
sub ProcessRNTI(){
	my $BeginNO = -1;
	my $CurRNTI = "";
	my $CurNO = 0;
	foreach $CurRNTI (@RNTI_CArray){
		if ($CurRNTI eq "" || $CurRNTI eq "0"){
			 
		}else{
			 #处理之上为空的
			unless ($BeginNO ==-1 || $BeginNO==($CurNO-1)){
			#	print "will process $BeginNO,$CurNO \n";
				&ProcessRNTIRange($BeginNO,$CurNO);	
			}
			$BeginNO = $CurNO;
		}
		$CurNO++;
	}
	#print "CNTI:\n";
	#print Dumper @RNTI_CArray;
}

sub GetColumnName($){
	my $FirstLine = shift @_;
	my @ColumnName = split /,/,$FirstLine;
	my $AColName;
	my $ColIndex = 0;
	foreach $AColName (@ColumnName){
		$ColName2Index{$AColName} = $ColIndex;
		$ColIndex++;
	}
}