my $begin_time = time();

#Specify files to map
#my @files = ("dataset1.dat", "dataset2.dat");

foreach $files (@ARGV) {

	#Load file into array (start)
	my $begin_time = time();

	print "Processing file: ".$files."\n";

	open my $handle, '<', $files;
	chomp( my @lines = <$handle> );
	#Exclude
	@lines2 = grep( !/(Final|ConvP&L|ConvBsheet)/, @lines );
	@lines = ();
	@lines = @lines2;
	close $handle;

	#Load file into array (end)
	my $end_time = time();
	printf( "Load file into array: "."%.2f\n", $end_time - $begin_time );

	#Mapping process (start)
	my $begin_time = time();

	# Mapping 1
	open(MAPPINGFILE1, "mapping3.txt") or die print "Error: not found in specified path\n";

	# Mapping 2
	open(MAPPINGFILE2, "mapping4.txt") or die print "Error: not found in specified path\n";

	#$count++ while <MAPPINGFILE1>;

	foreach $line (@lines) {

		#Mapping des charges directes
		seek MAPPINGFILE1, 0, 0;
		while (<MAPPINGFILE1>) {

			chomp();
			# Skip blank lines and comments
			next if /^(\s*(#.*)?)?$/;

			# Split source columns
			@source = split /\t/, $line;

			# Split mapping columns
			@mapping = split /\t/, $_;

			# Account is matching with source
			if ($line =~ m/$mapping[0]/) {

				#Account substitution
				if($mapping[2] eq "") {
					$line =~ s/$mapping[0]/"Compte cible non défini !"/;
				} else {
					$line =~ s/$mapping[0]/$mapping[2]/;
				}

				#Mapping = target Unit, Alloc_ + Unit source
				if($mapping[3] ne "Unit source") {

					#Unit substitution
					if($mapping[3] eq "") {
						$line =~ s/$source[2]/"Unit cible non définie !"\tALLOC_$source[2]/;
					} else {
						$line =~ s/$source[2]/$mapping[3]\tALLOC_$source[2]/;
					}
					push @lines2, $line;
					last;
				} else {

					#Mapping : source Unit, Alloc_ + source Unit
					$line =~ s/$source[2]/$source[2]\tALLOC_$source[2]/;
					push @lines2, $line;
					last;
				}
			}
			elsif (eof(MAPPINGFILE1)) {

				#Mapping des charges indirectes
				seek MAPPINGFILE2, 0, 0;
				while (<MAPPINGFILE2>) {

					chomp();
					# Skip blank lines and comments
					next if /^(\s*(#.*)?)?$/;

					# Split mapping columns (tab)
					@mapping = split /\t/, $_;

					# Mapping is matching
					if ($line =~ m/$mapping[0]/) {

						$line =~ s/$mapping[0]/$mapping[4]/;
						@source = split /\t/, $line;
						$line =~ s/$source[2]/$mapping[2]\tALLOC_$source[2]/;
						push @lines2, $line;
						last;
					} elsif (eof(MAPPINGFILE2)) {
						push @rejects, "Lignes non mappées (Account): "."\t".$line;
					}
				}
			}
		}
	}
	close MAPPINGFILE1;
	close MAPPINGFILE2;

	#Suppress double quote
	for (@lines2) { s/"//g }
	for (@rejects) { s/"//g }

	#Replace empty by Missing
	for (@lines2) { s/\t(?=\t)/\t#MI/g }

	#Generic mapping
	for (@lines2) { s/A2022Local/ACTUAL;FY22;Working_Central;Input;Local_YTD/g }
	for (@lines2) { s/A2022AjConsoLocal/ACTUAL;FY22;Working_Central;Adj_Conso;Local_YTD/g }
	for (@lines2) { s/A2022InEur/ACTUAL;FY22;Working_Central;Input;Eur_ACT2022_Rate_YTD/g }
	for (@lines2) { s/A2022AjConso/ACTUAL;FY22;Working_Central;Adj_Conso;Eur_ACT2022_Rate_YTD/g }
	for (@lines2) { s/A2022TxB22/ACTUAL;FY22;Working_Central;Input;Eur_BUD2022_Rate_YTD/g }
	for (@lines2) { s/A2022TxB22AjConso/ACTUAL;FY22;Working_Central;Adj_Conso;Eur_BUD2022_Rate_YTD/g }

	for (@lines2) { s/A2021Local/ACTUAL;FY21;Working_Central;Input;Local_YTD/g }
	for (@lines2) { s/A2021AjConsoLocal/ACTUAL;FY21;Working_Central;Adj_Conso;Local_YTD/g }
	for (@lines2) { s/A2021InEur/ACTUAL;FY21;Working_Central;Input;Eur_ACT2021_Rate_YTD/g }
	for (@lines2) { s/A2021AjConso/ACTUAL;FY21;Working_Central;Adj_Conso;Eur_ACT2021_Rate_YTD/g }
	for (@lines2) { s/A2021TxB22/ACTUAL;FY21;Working_Central;Input;Eur_BUD2021_Rate_YTD/g }
	for (@lines2) { s/A2021TxB22AjConso/ACTUAL;FY21;Working_Central;Adj_Conso;Eur_BUD2021_Rate_YTD/g }

	for (@lines2) { s/A2020Local/ACTUAL;FY20;Working_Central;Input;Local_YTD/g }
	for (@lines2) { s/A2020AjConsoLocal/ACTUAL;FY20;Working_Central;Adj_Conso;Local_YTD/g }
	for (@lines2) { s/A2020InEur/ACTUAL;FY20;Working_Central;Input;Eur_ACT2020_Rate_YTD/g }
	for (@lines2) { s/A2020AjConso/ACTUAL;FY20;Working_Central;Adj_Conso;Eur_ACT2020_Rate_YTD/g }
	for (@lines2) { s/A2020TxB22/ACTUAL;FY20;Working_Central;Input;Eur_BUD2020_Rate_YTD/g }
	for (@lines2) { s/A2020TxB22AjConso/ACTUAL;FY20;Working_Central;Adj_Conso;Eur_BUD2020_Rate_YTD/g }

	for (@lines2) { s/B2022Local/BUDGET;FY22;Working_Central;Input;Local_YTD/g }
	for (@lines2) { s/B2022AjConsoLoc/BUDGET;FY22;Working_Central;Adj_Conso;Local_YTD/g }
	for (@lines2) { s/B2022AjTBLocal/BUDGET;FY22;Working_Central;Adj_Conso;Local_YTD/g }
	for (@lines2) { s/B2022InEur/BUDGET;FY22;Working_Central;Input;Eur_BUD2022_Rate_YTD/g }
	for (@lines2) { s/B2022AjConso/BUDGET;FY22;Working_Central;Adj_Conso;Eur_BUD2022_Rate_YTD/g }
	for (@lines2) { s/B2022AjTB/BUDGET;FY22;Working_Central;Adj_Conso;Eur_BUD2022_Rate_YTD/g }

	#Add header
	unshift @lines2, "Scenario;Year;Audit;Version;Vision;Entity;Unit;Unit_Alloc;Account;Jan;Feb;Mar;Apr;May;Jun;Jul;Aug;Sep;Oct;Nov;Dec";

	#Set common delimiter
	for (@lines2) { s/(\t|;)/\t/g }
	for (@rejects) { s/(\t|;)/\t/g }

	#Mapping process (end)
	my $end_time = time();
	printf( "Mapping process: "."%.2f\n", $end_time - $begin_time );

	#Output (start)
	my $begin_time = time();

	open my $handle2, ">", $files."_output.txt";
	print $handle2 join( "\n", @lines2 );
	close $handle2;

	open my $handle3, ">", $files."_output.err";
	print $handle3 join( "\n", @rejects );
	close $handle3;

	#Output (end)
	my $end_time = time();
	printf( "Output: "."%.2f\n", $end_time - $begin_time );
}