| 1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
| 2 |
|
|
| 3 |
use strict; |
use strict; |
| 4 |
use blib; |
use lib 'lib'; |
| 5 |
|
|
| 6 |
use MARC::Fast; |
use MARC::Fast; |
| 7 |
use Getopt::Std; |
use Getopt::Std; |
| 8 |
use Data::Dumper; |
use Data::Dump qw/dump/; |
| 9 |
|
|
| 10 |
=head1 NAME |
=head1 NAME |
| 11 |
|
|
| 65 |
|
|
| 66 |
for my $mfn ($min .. $max) { |
for my $mfn ($min .. $max) { |
| 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 ",dump($rec) if ($opt{d}); |
| 69 |
print "REC $mfn\n"; |
print "REC $mfn\n"; |
| 70 |
|
print $marc->last_leader,"\n"; |
| 71 |
print $marc->to_ascii($mfn),"\n"; |
print $marc->to_ascii($mfn),"\n"; |
| 72 |
print "hash is ",Dumper($marc->to_hash($mfn)) if ($opt{h}); |
print "hash is ",dump($marc->to_hash($mfn, include_subfields => 1)) if ($opt{h}); |
| 73 |
} |
} |
Parent Directory
| 
Revision Log
| 
Patch