/[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 10 by dpavlin, Fri Nov 3 20:07:58 2006 UTC revision 11 by dpavlin, Fri Nov 3 20:34:31 2006 UTC
# 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.10  
changed lines
  Added in v.11

  ViewVC Help
Powered by ViewVC 1.1.26