4 # $ mkdir records-2010-04-06
5 # $ cd records-2010-04-06
6 # $ irspy-dump.pl irspy.indexdata.com:8018/IR-Explain---1
8 # $ tar cfz records-2010-04-06.tar.gz records-2010-04-06
10 # or: cd zebra; make dump
17 print STDERR "Usage: $0 target\n";
21 my $conn = new ZOOM::Connection($ARGV[0]);
22 $conn->option(preferredRecordSyntax => "xml");
23 $conn->option(elementSetName => "zebra::data");
24 my $rs = $conn->search_pqf('@attr 1=_ALLRECORDS @attr 2=103 ""');
27 print "$0: dumping $n records\n";
31 foreach my $i (1..$n) {
32 print "." if $i % $step2 == 0;
33 print " $i/$n (", int($i*100/$n), "%)\n" if $i % $step == 0;
34 my $rec = $rs->record($i-1);
35 my $xml = $rec->render();
36 open F, ">$i.xml" or die "open $i.xml: $!\n";
40 print " $n/$n (100%)\n" if $n % $step != 0;