2013年12月29日 星期日

Split Netlists

#!/usr/bin/perl


open(tempfile,"<u028lschpmvbdhrlt.cir");
open(h2,">temp.cir");


while(<tempfile>){


chop $_;
@ary=split(" ",$_);
if (($ary[0] eq ".subckt") || ($ary[0] eq ".SUBCKT"))
{
$cell_name = $ary[1] ;
#rename("temp.cir",$cell_name.".cir");
#open(h2,">temp.cir");
}
print h2 $_;
print h2 "\n";


if (($ary[0] eq ".ends") || ($ary[0] eq ".ENDS"))
{
close(h2);
rename("temp.cir",$cell_name.".cir");
open(h2,">temp.cir");
}
}
close (tempfile);
close (h2);


沒有留言:

張貼留言

標籤