projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add searching support for the zeerex.udb index.
[irspy-moved-to-github.git]
/
bin
/
irspy-dump.pl
diff --git
a/bin/irspy-dump.pl
b/bin/irspy-dump.pl
index
36cf3e4
..
e112b91
100755
(executable)
--- a/
bin/irspy-dump.pl
+++ b/
bin/irspy-dump.pl
@@
-1,4
+1,13
@@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
+
+# Invoke as:
+# $ mkdir records-2010-04-06
+# $ cd records-2010-04-06
+# $ irspy-dump.pl irspy.indexdata.com:8018/IR-Explain---1
+# $ cd ..
+# $ tar cfz records-2010-04-06.tar.gz records-2010-04-06
+#
+# or: cd zebra; make dump
use strict;
use warnings;
use strict;
use warnings;
@@
-16,14
+25,17
@@
my $rs = $conn->search_pqf('@attr 1=_ALLRECORDS @attr 2=103 ""');
my $n = $rs->size();
$| = 1;
print "$0: dumping $n records\n";
my $n = $rs->size();
$| = 1;
print "$0: dumping $n records\n";
+
+my $step = 200;
+my $step2 = 10;
foreach my $i (1..$n) {
foreach my $i (1..$n) {
- print ".";
- print " $i/$n (", int($i*100/$n), "%)\n" if $i % 50 == 0;
+ print "." if $i % $step2 == 0;
+ print " $i/$n (", int($i*100/$n), "%)\n" if $i % $step == 0;
my $rec = $rs->record($i-1);
my $xml = $rec->render();
my $rec = $rs->record($i-1);
my $xml = $rec->render();
- open F, ">$i.xml";
+ open F, ">$i.xml" or die "open $i.xml: $!\n";
print F $xml;
close F;
}
print F $xml;
close F;
}
-print " $n/$n (100%)\n" if $n % 50 != 0;
+print " $n/$n (100%)\n" if $n % $step != 0;
print "complete\n";
print "complete\n";