Hello Experts,

I am facing one issue with a mistake in the given code (main_code.pl). I have two input files.

File_1=> main_file

File-2=> input_to_file1

And File_3 is the output file.

main_code.pl is reading File_1 and File_2. The code is getting two information from File_1. Pin information and the corresponding direction information. For the same pin match from File_2, it is adding (here tried with search and replace) one more line with the corresponding value to a new file.

But the problem here is, only the last value is getting updated. I did a very big mistake. Would be great if someone please point me the mistake. 

 
##### main_code.pl
my $line4;
my $pin_name;
my $out_pin;
my $outdir_pin;
my $flag_pin=0;
my $csvoutpin;
my $max_tran_val;

open (FINAL1,"<","File_2") || die "Can not open Final_output.csv File"
+;
 while (my $finalline1 = <FINAL1>)
 {
    chomp $finalline1;
    print "$finalline1\n";
    @finalline1=split(',',$finalline1);
    $csvoutpin=$finalline1[0];
    $max_tran_val=$finalline1[1];
#    print "max_tran_val :: $max_tran_val \n";
#    print "csvoutpin :: $csvoutpin \n";    
    open (OUTFILE,">","File_3") || die "Can not open FINAL LIB File";
    open (IFILE,"<","File_1") || die "Can not open Input LIB File";
    while ( $line4 = <IFILE>)
    {
      chomp $line4;
      if ($line4 =~m/^\s*pin\s*\(\"(.*)\"\)/g || $line4 =~m/^\s*pin\((
+.*)\)/g)
      {
       $pin_name = $1;
       chomp $pin_name;
      }
      if ($line4 =~m/^\s*direction\s*:\s*output/g)
      {
       $out_pin = $pin_name;
       $outdir_pin = $line4;
       $flag_pin =1;
      }
      if  (($csvoutpin eq $out_pin) && ($flag_pin == 1)) 
      {
       $line4 =~ s/$outdir_pin/$outdir_pin\n      max_transition :$max
+_tran_val /g ;
       $flag_pin=0;
      }
     print OUTFILE "$line4 \n";
    }           
}
close OUTFILE;
close FINAL1;
close IFILE;
##### end of main_code.pl

[download]

File_1 

cell(main_input){ 
    dont_do : yes ; 
    dont_edit : yes ; 
    
    pin ("A") { 
      direction : input ; 
    }  
    pin ("B") { 
      direction : input ; 
    }  
    pin ("C") { 
      direction : output ; 
    }  
    pin ("D") { 
      direction : output ;
    }  
  }

[download]

File_2 

C,10
D,20

[download]

Ideal File_3 should be like this 

cell(main_input){ 
    dont_do : yes ; 
    dont_edit : yes ; 
    
    pin ("A") { 
      direction : input ; 
    }  
    pin ("B") { 
      direction : input ; 
    }  
    pin ("C") { 
      direction : output ; 
      max_transition  : 10;
    }  
    pin ("D") { 
      direction : output ;
      max_transition  : 20;
    }  
  }

[download]

But I am getting 

cell(main_input){ 
    dont_do : yes ; 
    dont_edit : yes ; 
    
    pin ("A") { 
      direction : input ; 
    }  
    pin ("B") { 
      direction : input ; 
    }  
    pin ("C") { 
      direction : output ; 
         }  
    pin ("D") { 
      direction : output ;
      max_transition  : 20;
    }  
  }

[download]

In reply to Last value update is only happening instead of all. by anirbanphys

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.