67 |
my $rec = $marc->fetch($mfn) || next; |
my $rec = $marc->fetch($mfn) || next; |
68 |
print "rec is ",Dumper($rec) if ($opt{d}); |
print "rec is ",Dumper($rec) if ($opt{d}); |
69 |
print "REC $mfn\n"; |
print "REC $mfn\n"; |
70 |
foreach my $f (sort keys %{$rec}) { |
print $marc->to_ascii($mfn),"\n"; |
|
my $dump = join('', @{ $rec->{$f} }); |
|
|
$dump =~ s/\x1e$//; |
|
|
$dump =~ s/\x1f/\$/g; |
|
|
print "$f\t$dump\n"; |
|
|
} |
|
|
print "\n"; |
|
71 |
print "hash is ",Dumper($marc->to_hash($mfn)) if ($opt{h}); |
print "hash is ",Dumper($marc->to_hash($mfn)) if ($opt{h}); |
72 |
} |
} |