projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
disable propagation of PC9x sentences
[spider.git]
/
perl
/
dbtest.pl
diff --git
a/perl/dbtest.pl
b/perl/dbtest.pl
index 51a5c4d02f61d17ecec799830d8a00e9dc7db31e..6951c76dbf041276d93227e3d8b54c390e6bf302 100755
(executable)
--- a/
perl/dbtest.pl
+++ b/
perl/dbtest.pl
@@
-18,6
+18,18
@@
use DXDebug;
use ARRL::DX;
use ARRL::DX;
-my $dx = ARRL::DX->new;
+while (@ARGV) {
+ my $fn = shift;
+ if ($fn eq '-d') {
+ ARRL::DX::drop();
+ next;
+ }
+ print "Processing $fn ";
+ my $dx = ARRL::DX->new(file=>$fn);
+ my $c = $dx->process;
+ print "$c paragraphs\n";
+}
+
+ARRL::DX::close();
exit 0;
exit 0;