/[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 1 by dpavlin, Tue Jan 4 10:26:07 2005 UTC revision 3 by dpavlin, Fri Apr 8 12:19:24 2005 UTC
# Line 20  print STDERR "$file has ",$marc->count," Line 20  print STDERR "$file has ",$marc->count,"
20  for my $mfn (1 .. $marc->count) {  for my $mfn (1 .. $marc->count) {
21          my $rec = $marc->fetch($mfn) || next;          my $rec = $marc->fetch($mfn) || next;
22          print "REC $mfn\n";          print "REC $mfn\n";
23          foreach my $f (keys %{$rec}) {          foreach my $f (sort keys %{$rec}) {
24                  print "$f\t",$rec->{$f},"\n";                  print "$f\t",$rec->{$f},"\n";
25          }          }
26          print "\n";          print "\n";
Legend:
Removed from v.1  
changed lines
  Added in v.3
  ViewVC Help
Powered by ViewVC 1.1.26