tt_change_all.pl

用于集成电路设计中

#!/usr/bin/perl  
system "rm temp_file";       
open(instancename,"<$ARGV[0]")||die"can't open the databooks:$!\n";
open(tempfile,">>temp_file") || die "can't open the databook:$!\n";
           $flag1=0;
           $flag2=0;
           $flag3=1;
   print tempfile " Cellname     Total-power  switch_power leakage_power\n";
while ($instance=<instancename>) {
        chomp($instance);
            @letter=split(' ',$instance);
	    if (($instance=~/^[a-zA-Z]/) && ($#letter==0  ))  {
                        $temp1=$letter[0];
                         $flag1=1;
                        }                 
            if (($instance=~/^\s+/) && ($flag1 )) {
            @letter=split(' ',$instance);
            $internal_power=$letter[0]/1000.0;
            $swich_power   =$letter[1]/1000.0;
            $total_power   =$letter[2]/1000.0;
            $leakage_power =$letter[3]/1000.0;
            $flag2         =                1;
             }
      if ( $flag1==1 && $flag2==1) {
        print tempfile "$temp1 $total_power $internal_power $swich_power  $leakage_power 1.000000e+00 \n"; 
         $flag1=0;
         $flag2=0; 
         $flag3=0;
       }
#     if ($flag1==0 && $flag2==0 && $flag3==1) {
     if ($flag1==0 && $flag2==0 && ($#letter==5)){
            $internal_power=$letter[1]/1000.0;
            $swich_power   =$letter[2]/1000.0;
            $total_power   =$letter[3]/1000.0;
            $leakage_power =$letter[4]/1000.0;
       print tempfile "$letter[0]  $total_power $internal_power $swich_power  $leakage_power 1.000000e+00 \n";
#            $flag3=1;
}
}
close(instancename);
close(tempfile);