#!c:\perl\bin\perl


# Set file paths
$FILE1 = "D\:\\Data\\WES\\File1.txt";
$FILE2 = "D\:\\Data\\WES\\File2.txt";
$FILE3 = "D\:\\Data\\WES\\File3.txt";

# print "$FILE1\n";
# print "$FILE2\n";
# print "$FILE3\n";

my %F1hash;

open(F1,'<', $FILE1) or die "Can't open $FILE1\n";
open(F2,'<', $FILE2) or die "Can't open $FILE2\n";
open(F3,'>', $FILE3) or die "Can't open $FILE3\n";

print F3 "\n";
# print LOGFILE "$start_date \n";
print F3 "===========================================\n";
print F3 "The following Partnumbers have been synchronized\n";
print F3 "===========================================\n";
print F3 "\n";


my %F1hash = ();

while (<F2>) {
	$ptfkey = $_;
	$ptfpn = $ptfkey;
	$ptfpn =~ s/^\s+|\s+$//g;
	$F1hash{$ptfkey, $ptfpn} = $ptfpn;
	}
	
close F2;

while (<F1>) {
  		#chomp;
  		$uline = $_;
  		@ufields = split(/\|/, $uline);
	  	# print "$ufields";
      	        $PartNumber = $ufields[0];
		$Std_Cost = $ufields[1];
		$Last_Paid_Price = $ufields[2];
		$Qty_In_Stock = $ufields[3];
		$Moto_Preferred_Part = $ufields[7];
		$Rev = $ufields[9];
		$Agile_Description = $ufields[10];
		if ($PartNumber =~ $Flhash{$PartNumber}) {
		#print "$ufields[0] \n";   
                print F3 "$PartNumber|$Std_Cost|$Last_Paid_Price|$Qty_In_Stock|$Moto_Preferred_Part|$Rev|$Agile_Description\n";

			    
		}
	}
	
	
close F1;
close F3;

exit;