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->last_leader,"\n"; |
71 |
my $dump = join('', @{ $rec->{$f} }); |
print $marc->to_ascii($mfn),"\n"; |
72 |
$dump =~ s/\x1e$//; |
print "hash is ",Dumper($marc->to_hash($mfn, include_subfields => 1)) if ($opt{h}); |
|
$dump =~ s/\x1f/\$/g; |
|
|
print "$f\t$dump\n"; |
|
|
} |
|
|
print "\n"; |
|
|
print "hash is ",Dumper($marc->to_hash($mfn)) if ($opt{h}); |
|
73 |
} |
} |