projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
#
#
# grep for expressions in various fields of the dx file
#
@@
-8,7
+9,13
@@
use DXDebug;
use spot;
# initialise spots file
use spot;
# initialise spots file
+STDOUT->autoflush(1);
+
+print "reading in spot data ..";
+$t = time;
$count = spot->init();
$count = spot->init();
+$t = time - $t;
+print "done ($t secs)\n";
dbgadd('spot');
dbgadd('spot');
@@
-18,8
+25,6
@@
$time = time;
print "$count database records read in\n";
print "$count database records read in\n";
-STDOUT->autoflush(1);
-
#loada();
for (;;) {
print "field: ";
#loada();
for (;;) {
print "field: ";