projects
/
Biblio-Isis
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
test and fix join_subfields_with
[Biblio-Isis]
/
scripts
/
dump_openisis.pl
diff --git
a/scripts/dump_openisis.pl
b/scripts/dump_openisis.pl
index
32adb0f
..
097d781
100755
(executable)
--- a/
scripts/dump_openisis.pl
+++ b/
scripts/dump_openisis.pl
@@
-5,8
+5,10
@@
#use strict;
use OpenIsis;
#use strict;
use OpenIsis;
+use Data::Dumper;
my $db = OpenIsis::open( shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI' );
my $db = OpenIsis::open( shift @ARGV || '/data/isis_data/ps/LIBRI/LIBRI' );
+my $debug = shift @ARGV;
my $maxmfn = OpenIsis::maxRowid( $db ) || 1;
print "rows: $maxmfn\n\n";
my $maxmfn = OpenIsis::maxRowid( $db ) || 1;
print "rows: $maxmfn\n\n";
@@
-14,6
+16,16
@@
print "rows: $maxmfn\n\n";
for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) {
print "0\t$mfn\n";
my $row = OpenIsis::read( $db, $mfn );
for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) {
print "0\t$mfn\n";
my $row = OpenIsis::read( $db, $mfn );
+ if ($debug) {
+ print STDERR Dumper($row),"\n";
+ my $rec;
+ foreach my $f (keys %{$row}) {
+ foreach my $v (@{$row->{$f}}) {
+ push @{$rec->{$f}}, OpenIsis::subfields($v);
+ }
+ }
+ print STDERR Dumper($rec),"\n";
+ }
foreach my $k (sort keys %{$row}) {
next if ($k eq 'mfn');
print "$k\t",join("\n$k\t",@{$row->{$k}}),"\n";
foreach my $k (sort keys %{$row}) {
next if ($k eq 'mfn');
print "$k\t",join("\n$k\t",@{$row->{$k}}),"\n";