/[webpac-proto]/casopisi/dump_marc.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /casopisi/dump_marc.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Sat Oct 26 20:10:03 2002 UTC (17 years, 7 months ago) by dpavlin
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
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