/[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

Diff of /trunk/scripts/dump_fastmarc.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by dpavlin, Wed Dec 28 22:03:24 2005 UTC revision 11 by dpavlin, Fri Nov 3 20:34:31 2006 UTC
# Line 19  dump_fastmarc.pl - display MARC records Line 19  dump_fastmarc.pl - display MARC records
19    
20  =over 16  =over 16
21    
22  =item -n number  =item -o offset
23    
24  dump just record C<number>  dump records starting with C<offset>
25    
26  =item -l limit  =item -l limit
27    
28  import just first C<limit> records  dump just C<limit> records
29    
30  =item -h  =item -h
31    
# Line 40  turn debugging output on Line 40  turn debugging output on
40  =cut  =cut
41    
42  my %opt;  my %opt;
43  getopts('dn:l:h', \%opt);  getopts('do:l:h', \%opt);
44    
45  my $file = shift @ARGV || die "usage: $0 [-n number] [-l limit] [-h] [-d] file.marc\n";  my $file = shift @ARGV || die "usage: $0 [-o offset] [-l limit] [-h] [-d] file.marc\n";
46    
47  my $marc = new MARC::Fast(  my $marc = new MARC::Fast(
48          marcdb => $file,          marcdb => $file,
# Line 67  for my $mfn ($min .. $max) { Line 67  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 ",Dumper($rec) if ($opt{d});
69          print "REC $mfn\n";          print "REC $mfn\n";
70          foreach my $f (sort keys %{$rec}) {          print $marc->to_ascii($mfn),"\n";
                 my $dump = join('', @{ $rec->{$f} });  
                 $dump =~ s/\x1e$//;  
                 $dump =~ s/\x1f/\$/g;  
                 print "$f\t$dump\n";  
         }  
         print "\n";  
71          print "hash is ",Dumper($marc->to_hash($mfn)) if ($opt{h});          print "hash is ",Dumper($marc->to_hash($mfn)) if ($opt{h});
72  }  }
Legend:
Removed from v.7  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.26