##### 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 = ) { 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 = ) { 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 #### 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 ; } } #### C,10 D,20 #### 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; } } #### 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; } }