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	dpavlin	61	#!/usr/bin/perl -w
2
3			use strict;
4	dpavlin	603	use MARC::File::USMARC;
5	dpavlin	61
6			my $file = shift @ARGV \|\| die "Usage: $0 [marc file]";
7
8	dpavlin	603	my $marc_file = MARC::File::USMARC->in($file) \|\| die $MARC::File::ERROR;
9	dpavlin	61
10	dpavlin	603	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	dpavlin	209
20	dpavlin	603	print "file '$file' with ",marc_count($file)," records...\n";
21	dpavlin	209
22	dpavlin	603	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	dpavlin	61	}
27