Parent Directory | Revision Log
dump marc file for inspection
1 | dpavlin | 1.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 |