我正在「拾陆楼」和朋友们讨论有趣的话题，你⼀起来吧？
拾陆楼知识星球入口
#!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;
next
}
if (/current_instance\s+{(\S+)}/) {
$curinst = "$1";
$curinst =~s/^{//g;
$curinst =~s/}$//g;
$hinst ="-hinstGuide ${curinst}
$curinst ="${curinst}\/";
next
}
if (/insert _ buffer\s+\[get_ pins\s+\{(.*)\}\]\s+(\S+)\s+-new_net_names\s+\{(\S+)\}\s+-new_cell_names\s+\{(\S+)\}\s+-location\s+\{(.*)\}\s+-orientation\s+(\S+)/ ) {
$term_name = "${curinst}$1";
$cell_name = $2;
$net_name = $3;
$name = $4;
$location = $5;
$ori2 = $6;
if ($ori2 eq "N") {$ori = "R0"}
if ($ori2 eq"FS") {$ori = "MX"}
if ($ori2 eq "S") {$ori = "R180"}
if ($ori2 eq"FN") {$ori = "MY"}
print wf "set result [ecoAddRepeater -term $term_name -cell $cell_name -newNetName $net_name -name $name -loc {$location} -bufOrient $ori $hinst]\n";
next
}
if (/add buffer_on_route\s+\[get _ net -of (.*)\]\s+-user_specified_buffers\s+\{\s*(.*)\s*\}\s+.*/) {
$pin = $1;
$ll = $2;
$i = 0;
$inst_list = "";
$cell_list = "";
$pt = "";
$j = 0;
$pin =~ s/^{//g;
$pin =~ s/}$//g;
foreach (split(/\s+/,$ll)) {
$i+=1;
if ($i==1) {
$inst_list="$inst_list $_";
} elsif ($i==2) {
$cell_list="$cell_list $_";
} elsif ($i==3) {
$pt="$pt $_";
} elsif ($i==4) {
$pt="$pt $_";
} elsif ($i==5) {
$i=0;
}
$orient_mark=1;
}
@cell_list = split(/\s+/,$cell _ list);
if ( @cell_list > 1) {
print wf "set result [ecoAddRepeater -net [get_object_name [get_net -of ${curinst}$pin]] -cell \"$cell _ list\" -loc \"$pt\" -name \"$inst _ list\"]\n";
} else {
print wf "set result [ecoAddRepeater -net [get_object_name [get_net -of ${curinst}$pin]] -cell \"$cell_ list\" -loc \"$pt\" -name \"$inst_list\" $hinst]\n";
}
} elsif (/set_cell_location -coordinates\s+{(.*)}\s+-orientation\s+(\S+)\s+\[get_cells\s+{(.*)}/) {
$ori2= $2;
$loc2 = $1;
$c2 = $3;
if ($ori2 eq"N") {$ori = "R0"}
if ($ori2 eq"FS") {$ori = "MX"}
if ($ori2 eq "S") {$ori = "R180"}
if ($ori2 eq"FN") {$ori = "MY"}
@cell_list = split(/\s+/,$cell_list);
if ($orient_mark && @cell_list > 1) {
print wf "dbSet [dbGet -p top.inst.name [lindex \$result $j ]].orient $ori\n";
print wf "dbSet [dbGet -p top.inst.name [lindex \$result $j ]]. pt \"$loc2\"\n";
} else {
print wf "dbSet [dbGet -p top.inst.name ${curinst}$c2]. orient $ori\n";
print wf "dbSet [dbGet -p top.inst.name ${curinst}$c2]. pt \"$loc2\"\n";
}
$j+=3;
} elsif (/size_cell\s{(\S+)}\s+{(\S+)}$/) {
print wf "ecoChangeCell -inst ${curinst}$1 -cell $2\n";
$orient_mark=0;
} else {
$j=0;
print wf $_;
}
close rf;
close wf
