To enhance the script to cover new rules

[freekngeek]

Hi, I am an intern and new to the world of perl. I have to enhance the script with new naming convention so it can parse the new rules. Actually this script is comparing two text files, techfile and referene file. techfile used to have old set of rules and the following script is for the old techfile. Now. I have a new techfile with few new rules, so I have to enhance the old script for the new techfile. Old tech file -

POLYNOMIAL_BASED_EM_DC {
        LENGTH_RANGES { 1e38 }
        EM_POLYNOMIALS {
          { 0.3802 + (13.4739 * sqrt(W/0.9)) + (4.6272 * (W/0.9)) }
        }
  }
  POLYNOMIAL_BASED_EM_RMS {
        LENGTH_RANGES { 1e38 }
        EM_POLYNOMIALS {
          { 0.3802 + (13.4739 * sqrt(W/0.9)) + (4.6272 * (W/0.9)) }
        }
  }

New tech file -

POLYNOMIAL_BASED_EM_DC {
    COND_RULE { L > 0 AND W > 0}
        EM_POLYNOMIAL { 0.3802 + (13.4739 * sqrt(W/0.9)) + (4.6272 * (
+W/0.9)) IMAX -2.632 + (27.136 * (W/0.9)) }
  }
  POLYNOMIAL_BASED_EM_RMS {
    COND_RULE { L > 0 AND W > 0}
        EM_POLYNOMIAL { 0.3802 + (13.4739 * sqrt(W/0.9)) + (4.6272 * (
+W/0.9)) }
  }

Here's the part of the code.

my $rw = open(FILE, $techfile);
if(not defined($rw)) {
    die "ERROR Can't read techfile! \n";
}
while(defined(my $i = <FILE>)) { 
    chomp($i);
    
    if( $i =~ /metal/ ) {
        $blockMetal=1;
        $curlev=&LevelList("metal ",$i);
        $metals{$curlev}=();
    }
    
    if( $i =~ /via/ ) {
        $blockVia=1;
        $curlev=&LevelList("via ",$i);
        $vias{$curlev}=();
    }

    
    #start single metal-level extraction    
    if($blockMetal > 0) {
        
        $zBlock=&CharCount($zBlock,$i);
        
        if( $i =~ /POLYNOMIAL_BASED_EM_DC/ ) {
            $blockEMDC=1;
        }
        
        #start extraction 
        #POLYNOMIAL_BASED_EM_DC block for single metal level
        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',$eps);
                #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;                    
            }
        }
        
        
        
        #end extraction
        #POLYNOMIAL_BASED_EM_DC block for single metal level

[choroba]

Hello freekngeek, wellcome to the Monastery.

Unfortunately, this is not a code writing service. What have you tried, what did not work? What parts of the old code do you need to be explained?

[freekngeek]

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;                    
            }
        }

[Anonymous Monk]

Can you tell me how this part is working ?

Kind of broad and unanswerable :/

pick a line and explain what you understand, and what you don't understand, or are you asking about something else

[pvaldes]

if($_==1){
  print("$curlev DC lentgh AND width ranges block is missing!\n")}

you don't need the parentheses here, same as:

if($_==1){
  print $curlev, ' DC lentgh AND width ranges block is missing!\n'}

[Anonymous Monk]

Parse::RecDescent::Simple or Regexp::Grammars??

Frankly I'd rather try to find an existing solution first, or at least the name of the format (ANSYS??)