Sorry, I really don't want anyone to write a code for me because it's not right. The thing is I am having a hard time understanding the old script that I do not understand 100% - I did not write it. I don't know how this script is working to calculate the values in techfile then matching those values with the reference file.
Can you tell me how this part is working ?
if($blockEMDC > 0) {
$zzBlock=&CharCount($zzBlock,$i);
push @readin, $i; #line added to array
if($zzBlock == 0) {
$blockEMDC=0;
$readin=join(' ',@readin); #connect whole block to one
+ string
$_=&CreateHash($readin,\%{$metals{$curlev}{'POLY_BASED
+_EM_DC'}},'DC');
#if(!$_) {print("$curlev DC consistent is fine!\n")};#
+only for debugging
if($_==1){print("$curlev DC lentgh AND width ranges bl
+ock is missing!\n")}
elsif($_==2){print("$curlev DC count of lentgh-ranges
+AND count of EM_POLYNOMIALS blocks doesn't match!\n")}
elsif($_==3){print("$curlev DC count of width-ranges A
+ND count of EM_POLYNOMIALS block-lines doesn't match!\n")}
+
undef @readin;
undef $readin;
undef $zzBlock;
}
}