drustvene/tools/dump_marc.pl

#!/usr/bin/perl -w

use strict;
use MARC::File::USMARC;

my $file = shift @ARGV || die "Usage: $0 [marc file]";

my $marc_file = MARC::File::USMARC->in($file) || die $MARC::File::ERROR;

sub marc_count {
        my $filename = shift || die;
        my $file = MARC::File::USMARC->in($filename) || die $MARC::File::ERROR;
        my $count = 0;
        while ($file->skip()) {
                $count++;
        }
        return $count;
}

print "file '$file' with ",marc_count($file)," records...\n";

my $i = 1;
while( my $marc = $marc_file->next() ) {
        print "REC #",$i++,": ",$marc->title,"\n";
        print $marc->as_formatted,"\n\n";
}

1	#!/usr/bin/perl -w
2
3	use strict;
4	use MARC::File::USMARC;
5
6	my $file = shift @ARGV \|\| die "Usage: $0 [marc file]";
7
8	my $marc_file = MARC::File::USMARC->in($file) \|\| die $MARC::File::ERROR;
9
10	sub marc_count {
11	my $filename = shift \|\| die;
12	my $file = MARC::File::USMARC->in($filename) \|\| die $MARC::File::ERROR;
13	my $count = 0;
14	while ($file->skip()) {
15	$count++;
16	}
17	return $count;
18	}
19
20	print "file '$file' with ",marc_count($file)," records...\n";
21
22	my $i = 1;
23	while( my $marc = $marc_file->next() ) {
24	print "REC #",$i++,": ",$marc->title,"\n";
25	print $marc->as_formatted,"\n\n";
26	}
27