/[MARC-Fast]/trunk/scripts/dump_fastmarc.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 /trunk/scripts/dump_fastmarc.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4 - (hide annotations)
Sat Oct 8 16:32:54 2005 UTC (18 years, 5 months ago) by dpavlin
File MIME type: text/plain
File size: 647 byte(s)
added option -n number to dump just one record and -d for debug

1 dpavlin 1 #!/usr/bin/perl -w
2    
3     use strict;
4     use blib;
5    
6     use MARC::Fast;
7 dpavlin 4 use Getopt::Std;
8 dpavlin 1 use Data::Dumper;
9    
10 dpavlin 4 my %opt;
11     getopts('dn:', \%opt);
12 dpavlin 1
13 dpavlin 4 my $file = shift @ARGV || die "usage: $0 [-n number] [-d] file.marc\n";
14    
15 dpavlin 1 my $marc = new MARC::Fast(
16     marcdb => $file,
17 dpavlin 4 debug => $opt{'d'},
18 dpavlin 1 );
19    
20 dpavlin 4 print STDERR "$file has ",$marc->count," records...\n";
21 dpavlin 1
22 dpavlin 4 my $min = 1;
23     my $max = $marc->count;
24    
25     if (my $mfn = $opt{'n'}) {
26     $min = $max = $mfn;
27     }
28    
29     print STDERR "Dumping $min - $max\n" if ($opt{'d'});
30    
31     for my $mfn ($min .. $max) {
32 dpavlin 1 my $rec = $marc->fetch($mfn) || next;
33     print "REC $mfn\n";
34 dpavlin 3 foreach my $f (sort keys %{$rec}) {
35 dpavlin 1 print "$f\t",$rec->{$f},"\n";
36     }
37     print "\n";
38     }

Properties

Name Value
svn:executable

  ViewVC Help
Powered by ViewVC 1.1.26