#!/usr/bin/perl

use strict ;
use warnings ;

use File::Slurp ;
use Data::Dumper ;

my %is_empty_field ;

my( $empty_fields_file, $csv_file ) = @ARGV ;

my @lines = read_file( $empty_fields_file ) ;
chomp @lines ;
@is_empty_field{ @lines } = () ;

#print map "$_\n", keys %is_empty_field ;


my @field_lines = read_file( $csv_file ) ;

foreach my $field_line ( @field_lines ) {

	my( $rec_type, $fld_name ) = (split /\|/, $field_line )[0,3] ;

	$fld_name =~ tr/ //d ;

#print "[$rec_type:$fld_name]\n" if $rec_type eq '1MHG' ;

	if ( exists $is_empty_field{ "$rec_type:$fld_name" } ) {

#print "FOUND $rec_type:$fld_name\n" ;

		$field_line =~ s/$fld_name/ ' ' x length $fld_name/e ;
	}

	print $field_line ;
}

exit ;