projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
get it up and running basically on a test file
[spider.git]
/
perl
/
dbtest.pl
diff --git
a/perl/dbtest.pl
b/perl/dbtest.pl
index 51a5c4d02f61d17ecec799830d8a00e9dc7db31e..c4f5ca8e9d259a08cd016ce1530dc3b246654306 100755
(executable)
--- a/
perl/dbtest.pl
+++ b/
perl/dbtest.pl
@@
-18,6
+18,14
@@
use DXDebug;
use ARRL::DX;
use ARRL::DX;
-my $dx = ARRL::DX->new;
+while (@ARGV) {
+ my $fn = shift;
+ 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;