webpac-proto/casopisi/dump_marc.pl

#!/usr/bin/perl -w

use strict;
use MARC;
require "../common.pm";

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

my $x = new MARC;
my $nr = $x->openmarc( { file => $file, format => 'usmarc' });

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

while ($x->nextmarc(1)) {
        print $x->output({format=>'ascii'});    # FIX

        my $rec = $x->marc_count();
        print $x->getfirstvalue({record=>$rec,field=>245,subfield=>'a',delimiter=>" "}),"<--\n";
}

1	dpavlin	1.1	#!/usr/bin/perl -w
2
3			use strict;
4			use MARC;
5			require "../common.pm";
6
7			my $file = shift @ARGV \|\| die "Usage: $0 [marc file]";
8
9			my $x = new MARC;
10			my $nr = $x->openmarc( { file => $file, format => 'usmarc' });
11
12			print "file '$file' with '",$x->marc_count(),"' records...\n";
13
14			while ($x->nextmarc(1)) {
15			print $x->output({format=>'ascii'}); # FIX
16
17			my $rec = $x->marc_count();
18			print $x->getfirstvalue({record=>$rec,field=>245,subfield=>'a',delimiter=>" "}),"<--\n";
19			}
20