#! /bin/perl -w

open(CF,"cell_list");

while(<CF>)

{

        chomp;

        $cellname=$_;

        open(LVSF,"LVS_RUNSET_NAME.lvs_template");

        open(NLVSF,">$cellname.lvs");

        while(<LVSF>)

        {

                chomp;

                $lvsline=$_;

                $lvsline=~s/CellName/$cellname/g;

                print NLVSF "$lvsline\n";

        }

        close(LVSF);

        close(NLVSF);

        open(CMDF,"CCI_cmd_template") or die "abc\n";

        open(NCMDF,">${cellname}_cci_cmd") or die "bcd\n";

        while(<CMDF>)

        {

                chomp;

                $cciline=$_;

                $cciline=~s/CellName/$cellname/g;

                print NCMDF "$cciline\n";

        }

        close(CMDF);

        close(NCMDF);

        system"calibre  -lvs -hier -hcell hcell_list $cellname.lvs";

        system"calibre -query_input query_cmd -query svdb $cellname";

        system"StarXtract -clean ${cellname}_cci_cmd";

        system"cp lvs.rep ${cellname}.lvs.rep";

}

close(CF);