+
+
+sub find_nets {
+ if(! open(FH, $NETSFILE)) {
+ warn "Please create $NETSFILE.\n";
+ exit 0;
+ }
+ while (<FH>) {
+ chomp;
+ if( /^[ ]*([^ \#]+)/i ) {
+ push(@NETS, "$1");
+ }
+ }
+ if($#NETS == -1) {
+ warn "$NETSFILE doesn't contain any nets.\n";
+ exit 0;
+ }
+