Parent Directory | Revision Log
dump marc file for inspection
1 | #!/usr/bin/perl -w |
2 | |
3 | use strict; |
4 | use MARC; |
5 | require "../common.pm"; |
6 | |
7 | my $file = shift @ARGV || die "Usage: $0 [marc file]"; |
8 | |
9 | my $x = new MARC; |
10 | my $nr = $x->openmarc( { file => $file, format => 'usmarc' }); |
11 | |
12 | print "file '$file' with '",$x->marc_count(),"' records...\n"; |
13 | |
14 | while ($x->nextmarc(1)) { |
15 | print $x->output({format=>'ascii'}); # FIX |
16 | |
17 | my $rec = $x->marc_count(); |
18 | print $x->getfirstvalue({record=>$rec,field=>245,subfield=>'a',delimiter=>" "}),"<--\n"; |
19 | } |
20 |
ViewVC Help | |
Powered by ViewVC 1.1.26 |