speeded up search and load of dx spots (a lot)

[spider.git] / perl / gdx.pl

diff --git a/perl/gdx.pl b/perl/gdx.pl
index 8f6f2065edd75b8395c581d8146ed1279a5ea77d..3d311e38264d4d36a5be378c331c1faba986c047 100755 (executable)
--- a/perl/gdx.pl
+++ b/perl/gdx.pl
@@ -1,3 +1,4 @@
+#!/usr/bin/perl
 #
 # grep for expressions in various fields of the dx file
 #
@@ -8,7 +9,13 @@ use DXDebug;
 use spot;
 
 # initialise spots file
+STDOUT->autoflush(1);
+
+print "reading in spot data ..";
+$t = time;
 $count = spot->init();
+$t = time - $t;
+print "done ($t secs)\n";
 
 dbgadd('spot');
 
@@ -18,8 +25,6 @@ $time = time;
 
 print "$count database records read in\n";
 
-STDOUT->autoflush(1);
-
 #loada();
 for (;;) {
   print "field: ";