/[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 25 by dpavlin, Tue Nov 6 20:06:26 2007 UTC revision 26 by dpavlin, Mon Nov 19 16:37:00 2007 UTC
# Line 5  use blib; Line 5  use blib;
5    
6  use MARC::Fast;  use MARC::Fast;
7  use Getopt::Std;  use Getopt::Std;
8  use Data::Dumper;  use Data::Dump qw/dump/;
9    
10  =head1 NAME  =head1 NAME
11    
# Line 65  if (my $mfn = $opt{n}) { Line 65  if (my $mfn = $opt{n}) {
65    
66  for my $mfn ($min .. $max) {  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 ",dump($rec) if ($opt{d});
69          print "REC $mfn\n";          print "REC $mfn\n";
70          print $marc->last_leader,"\n";          print $marc->last_leader,"\n";
71          print $marc->to_ascii($mfn),"\n";          print $marc->to_ascii($mfn),"\n";
72          print "hash is ",Dumper($marc->to_hash($mfn, include_subfields => 1)) if ($opt{h});          print "hash is ",dump($marc->to_hash($mfn)) if ($opt{h});
73  }  }
Legend:
Removed from v.25  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.26