PT：pt write_change to innovus 脚本

我正在「拾陆楼」和朋友们讨论有趣的话题，你⼀起来吧？

拾陆楼知识星球入口

#!usr/bin/perl
open rf,"$ARGV[0]";
open wf,">test. tcl";

while (<rf>) {
          s/\[(\D[^\s\]]*)?\]/\\\[$1\\\]/g;
          if (/current _ instances$/) {
                 $curinst = "";
                 $hinst = "";
                 $orient_mark=0;